Linux Cubed Series 3: Developer Tools

home *** CD-ROM | disk | FTP | other *** search

/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / format.fas < prev next >

Wrap

CLISP byte-compiled Lisp program | 1996-07-22 | 88.2 KB | 1,820 lines

(SYSTEM::VERSION '(19071996.)) #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "SYSTEM" ) #Y(#:TOP-LEVEL-FORM-2 #361Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 62 DE 72 04 00 31 8A DB 2E 07 E0 30 5E E1 30 5E E2 2E 01 E2 E3 E4 31 8A E2 E5 31 84 E6 30 5E E7 30 5E E8 2E 01 E8 E3 E9 31 8A E8 EA 31 84 EB 30 5E EC 30 5E ED 2E 01 ED E3 EE 31 8A ED EF 31 84 F0 30 5E F1 30 5E F2 2E 01 F2 E3 F3 31 8A F2 F4 31 84 F5 30 5E 64 1E 30 5E 64 1F 2E 01 64 1F E3 64 20 31 8A 64 1F 64 21 31 84 64 22 30 5E 64 23 30 5E 64 24 2E 01 64 24 E3 64 25 31 8A 64 24 64 26 31 84 64 27 30 5E 64 28 30 5E 64 29 2E 01 64 29 E3 64 2A 31 8A 64 29 64 2B 31 84 64 2C 30 5E 64 2D 30 5E 64 2E 2E 01 64 2E E3 64 2F 31 8A 64 2E 64 30 31 84 E2 64 31 64 32 03 33 79 31 8A E2 64 34 62 2C 03 35 E8 64 31 64 32 03 36 79 31 8A E8 64 34 62 2C 03 35 ED 64 31 64 32 03 37 79 31 8A ED 64 34 62 2C 03 35 F2 64 31 64 32 03 38 79 31 8A F2 64 34 62 2C 03 35 64 1F 64 31 64 32 03 39 79 31 8A 64 1F 64 34 62 2C 03 35 64 24 64 31 64 32 03 3A 79 31 8A 64 24 64 34 62 2C 03 35 64 29 64 31 64 32 03 3B 79 31 8A 64 29 64 34 62 2C 03 35 64 2E 64 31 64 32 03 3C 79 31 8A 64 2E 64 34 62 2C 03 35 DB 64 3D 62 2C 03 35 DB 64 3E 31 8B C6 19 01 ) MAKE-CSD REMOVE-OLD-DEFINITIONS #Y(MAKE-CSD #65Y(00 00 00 00 00 00 00 00 00 01 D8 D9 71 34 DA AB DB DC 31 33 DA AB DD DC 31 33 DA AB DE 62 31 33 DA AB DF 62 31 33 DA AB E0 62 31 33 DA AB E1 62 31 33 DA AB E2 62 31 33 DA AB E3 62 31 33 15 19 01 ) #1=(CONTROL-STRING-DIRECTIVE) 9. CONTROL-STRING-DIRECTIVE 1. 0. 2. 3. 4. 5. 6. 7. 8. ) CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION #1# (#(TYPE (:TYPE) 1. (NIL . 0.) 0. FIXNUM NIL) #(CS-INDEX (:CS-INDEX) 2. (NIL . 0.) 0. FIXNUM NIL) #(PARM-LIST (:PARM-LIST) 3. (NIL) NIL LIST NIL) #(V-OR-#-P (:V-OR-#-P) 4. (NIL) NIL SYMBOL NIL) #(COLON-P (:COLON-P) 5. (NIL) NIL SYMBOL NIL) #(ATSIGN-P (:ATSIGN-P) 6. (NIL) NIL SYMBOL NIL) #(DATA (:DATA) 7. (NIL) NIL T NIL) #(CLAUSE-CHAIN (:CLAUSE-CHAIN) 8. (NIL) NIL T NIL) ) CLOS::DEFINE-STRUCTURE-CLASS (FUNCTION CSD-TYPE (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-TYPE) CSD-TYPE INLINE-EXPANSION (#2=(OBJECT) (DECLARE (IN-DEFUN CSD-TYPE)) (BLOCK CSD-TYPE (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 1.)) ) ) #Y(CSD-TYPE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 1. ) (FUNCTION CSD-CS-INDEX (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-CS-INDEX) CSD-CS-INDEX (#2# (DECLARE (IN-DEFUN CSD-CS-INDEX)) (BLOCK CSD-CS-INDEX (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 2.)) ) ) #Y(CSD-CS-INDEX #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 2. ) (FUNCTION CSD-PARM-LIST (CONTROL-STRING-DIRECTIVE) LIST) (INLINE CSD-PARM-LIST) CSD-PARM-LIST (#2# (DECLARE (IN-DEFUN CSD-PARM-LIST)) (BLOCK CSD-PARM-LIST (THE LIST (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 3.)) ) ) #Y(CSD-PARM-LIST #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 3. ) (FUNCTION CSD-V-OR-#-P (CONTROL-STRING-DIRECTIVE) SYMBOL) (INLINE CSD-V-OR-#-P) CSD-V-OR-#-P (#2# (DECLARE (IN-DEFUN CSD-V-OR-#-P)) (BLOCK CSD-V-OR-#-P (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 4.)) ) ) #Y(CSD-V-OR-#-P #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 4. ) (FUNCTION CSD-COLON-P (CONTROL-STRING-DIRECTIVE) SYMBOL) (INLINE CSD-COLON-P) CSD-COLON-P (#2# (DECLARE (IN-DEFUN CSD-COLON-P)) (BLOCK CSD-COLON-P (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 5.)) ) ) #Y(CSD-COLON-P #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 5. ) (FUNCTION CSD-ATSIGN-P (CONTROL-STRING-DIRECTIVE) SYMBOL) (INLINE CSD-ATSIGN-P) CSD-ATSIGN-P (#2# (DECLARE (IN-DEFUN CSD-ATSIGN-P)) (BLOCK CSD-ATSIGN-P (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 6.)) ) ) #Y(CSD-ATSIGN-P #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 6. ) (FUNCTION CSD-DATA (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-DATA) CSD-DATA (#2# (DECLARE (IN-DEFUN CSD-DATA)) (BLOCK CSD-DATA (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 7.)) ) ) #Y(CSD-DATA #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 7. ) (FUNCTION CSD-CLAUSE-CHAIN (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-CLAUSE-CHAIN) CSD-CLAUSE-CHAIN (#2# (DECLARE (IN-DEFUN CSD-CLAUSE-CHAIN)) (BLOCK CSD-CLAUSE-CHAIN (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 8.)) ) ) #Y(CSD-CLAUSE-CHAIN #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONTROL-STRING-DIRECTIVE 8. ) SETF-EXPANDER -1. #Y(SETF-CSD-TYPE #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 1. THE FIXNUM ) SETF %SET-DOCUMENTATION #Y(SETF-CSD-CS-INDEX #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 2. THE FIXNUM ) #Y(SETF-CSD-PARM-LIST #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 3. THE LIST ) #Y(SETF-CSD-V-OR-#-P #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 4. THE SYMBOL ) #Y(SETF-CSD-COLON-P #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 5. THE SYMBOL ) #Y(SETF-CSD-ATSIGN-P #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 6. THE SYMBOL ) #Y(SETF-CSD-DATA #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 7. ) #Y(SETF-CSD-CLAUSE-CHAIN #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 8. ) STRUCTURE STRUCTURE-PRINT ) #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01) CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION ) #Y(#:TOP-LEVEL-FORM-4 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) WHITESPACEP REMOVE-OLD-DEFINITIONS #Y(WHITESPACEP #18Y(00 00 00 00 01 00 00 00 00 02 AB D8 37 03 30 B8 19 02) (#\Space #\Newline #\Newline #\Tab #\Return #\Page) ) ) #Y(#:TOP-LEVEL-FORM-5 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-PARSE-CS REMOVE-OLD-DEFINITIONS #Y(FORMAT-PARSE-CS #674Y(00 00 00 00 04 00 00 00 00 05 AD 01 03 93 06 1A 82 6F B3 80 4A 04 14 DA AD DD AD 31 33 16 01 92 06 82 79 1A 82 67 B3 AF 7F 36 03 14 23 00 27 B1 2D 01 F8 14 7A 01 7F AF 07 DA AC DB DB 31 33 DA AC DC B1 31 33 D8 B4 37 06 A7 FA 80 62 04 1C 42 DA AC DD B1 31 33 B1 2D 01 F8 14 7A 01 7F AF 07 DA AC DB DC 31 33 DA AC DC B1 31 33 DA AC DE 62 31 33 DA AC DF 62 31 33 DA AC E0 62 31 33 DA AC E1 62 31 33 DA AC DD 62 31 33 DA AC E2 62 31 33 1A 3B B3 AF CE 1A 80 DF 9E 25 0D 80 ED D2 1A 05 AD 23 0E 79 D3 14 AA DA AE DE 31 32 79 DA AE DE AD 31 33 16 02 DA AC DF 63 31 33 1A 80 81 62 DA AD DE 31 32 79 DA AD DE AD 31 33 16 01 84 04 14 B4 71 4A 8F 01 32 FF BA B3 AF 7F 36 03 14 37 01 8C 25 FF B4 B3 AF 37 02 63 30 84 41 02 69 05 69 02 1B 0C B3 AF E9 EA EB 6D 03 14 B0 2C 04 0C AC DA AD DE 31 32 79 DA AD DE AD 31 33 16 01 1A 31 B3 AF ED EE EF 2C 03 14 1A 80 5C B3 AF CE 1A 80 56 84 04 14 B4 71 4A 8F 01 32 65 B3 AF 7F 36 03 14 DA AD DE 31 32 79 DA AD DE AD 31 33 16 01 84 04 AE B4 71 4A 8F 01 32 52 B3 AF 7F 36 03 25 18 39 DA AC CB 1A 10 B3 AF 7F 36 03 14 23 19 72 AD 24 1A 27 DA AC CC 14 63 31 33 84 04 14 B4 71 4A 90 01 32 62 B3 AF CE 14 2C 03 0C 92 06 81 1D 1A 81 0B DA AD DD AD 31 33 1A 27 DA AC DE 71 32 71 4C DA AD DE AD 31 33 16 01 AD 70 2D F3 37 03 30 BF 78 91 00 5D B4 B0 F4 F5 64 1E 6D 03 14 2C 03 0C 16 01 84 04 9E 25 1F 80 C7 B3 AF B3 A1 25 20 10 03 21 1A 0D 03 22 1A 09 03 23 1A 05 03 24 1A 01 00 14 27 FE 34 41 02 69 08 69 04 1A 80 A2 91 06 0F B3 AF 64 25 64 26 64 27 6D 03 14 B0 2C 04 0C AD B1 8D 04 10 B3 AF 64 28 64 29 64 2A 6D 03 14 B0 B4 2C 05 0C DA AB E2 B4 31 33 1A 80 8D B0 23 22 12 B0 23 24 0E B3 AF 64 2B 64 2C 64 2D 6D 03 14 2C 03 0C DA AB E2 B4 31 33 9C F6 1A 80 51 DA AC E1 8E 32 80 4A B3 AF 64 2F 64 30 64 31 6D 03 14 2C 03 0C 1A 3A B3 80 4A 04 1A 34 DA AC DB 64 2E 31 33 DA AC E0 8D 32 56 DA AC E1 8E 32 16 DA AC DB DB 31 33 96 04 DA AD DC AD 31 33 16 01 DA AC DD B1 31 33 98 32 B4 37 04 A5 F8 8E 64 47 FA AE B4 71 4A 90 01 32 FD 9C 92 06 0F B3 AF 64 33 64 34 64 35 6D 03 14 B3 2C 04 0C AE B2 3F 02 19 0A ) #\~ MAKE-CSD CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5. 6. 8. "La chaεne de contr⌠le se termine en plein milieu d'une directive." FORMAT-ERROR #S(HASH-TABLE EQ (#\@ . 200.) (#\: . 182.) (#\, . 35.) (#\# . 5.) (#\v . 5.) (#\V . 5.) (#\' . 134.) (#\- . 73.) (#\+ . 73.) ) #\# :ARG-COUNT :NEXT-ARG "~A must introduce a number." "~A mu▀ eine Zahl einleiten." "~A doit introduire un nombre." LANGUAGE "The control string terminates in the middle of a parameter." "Kontrollstring endet mitten in einem '-Parameter." "La chaεne de contr⌠le se termine au milieu d'un paramΦtre." #S(HASH-TABLE EQ (#\@ . 19.) (#\: . 1.) (#\, . -131.)) #\: #\@ ((#\A . FORMAT-ASCII) (#\S . FORMAT-S-EXPRESSION) (#\W . FORMAT-WRITE) (#\D . FORMAT-DECIMAL) (#\B . FORMAT-BINARY) (#\O . FORMAT-OCTAL) (#\X . FORMAT-HEXADECIMAL) (#\R . FORMAT-RADIX) (#\P . FORMAT-PLURAL) (#\C . FORMAT-CHARACTER) (#\F . FORMAT-FIXED-FLOAT) (#\E . FORMAT-EXPONENTIAL-FLOAT) (#\G . FORMAT-GENERAL-FLOAT) (#\$ . FORMAT-DOLLARS-FLOAT) (#\% . FORMAT-TERPRI) (#\& . FORMAT-FRESH-LINE) (#\Newline . #\Newline) (#\| . FORMAT-PAGE) (#\~ . FORMAT-TILDE) (#\T . FORMAT-TABULATE) (#\* . FORMAT-GOTO) (#\? . FORMAT-INDIRECTION) (#$ . FORMAT-CASE-CONVERSION) (#$ . FORMAT-CASE-CONVERSION-END) (#\[ . FORMAT-CONDITIONAL) (#\] . FORMAT-CONDITIONAL-END) (#\{ . FORMAT-ITERATION) (#\} . FORMAT-ITERATION-END) (#\< . FORMAT-JUSTIFICATION) (#\> . FORMAT-JUSTIFICATION-END) (#\^ . FORMAT-UP-AND-OUT) (#\; . FORMAT-SEPARATOR) ) "Non-existent directive" "Diese Direktive gibt es nicht." "Directive non reconnue." #S(HASH-TABLE EQ (#\Newline . 149.) (#\; . 87.) (#\> . 39.) (#\} . 39.) (#\] . 39.) (#\) . 39.) (#\< . 2.) (#\{ . 2.) (#\[ . 2.) (#$ . 2.) ) #S(HASH-TABLE EQ (#\< . 13.) (#\{ . 9.) (#\[ . 5.) (#\( . 1.)) #$ #\] #\} #\> "The closing directive '~A' does not have a corresponding opening one." "Schlie▀ende Klammer '~A' ohne vorherige ÷ffnende Klammer" "ParenthΦse fermante '~A' sans parenthΦse ouvrante correspondante." "The closing directive '~A' does not match the corresponding opening one. It should read '~A'." "Schlie▀ende Klammer '~A' pa▀t nicht; sollte '~A' lauten." "La parenthΦse fermante '~A' ne correspond pas α celle ouvrante. Il devrait y avoir '~A'." "The ~~; directive is not allowed at this point." "Hier ist keine ~~;-Direktive m÷glich." "La directive ~~; n'est pas permise ici." 0. "The ~~newline directive cannot take both modifiers." "Die ~~Newline-Direktive ist mit : und @ sinnlos." "La directive ~~Newline est insensΘe avec les deux qualificateurs : et @." WHITESPACEP "An opening directive is never closed; expecting '~A'." "Schlie▀ende Klammer '~A' fehlt." "Il manque la borne fermante '~A'." ) ) #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-CS*) *FORMAT-CS* ) #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-CSDL*) *FORMAT-CSDL* ) #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-ARG-LIST*) *FORMAT-ARG-LIST* ) #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-NEXT-ARG*) *FORMAT-NEXT-ARG* ) #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-NEXT-ARGLIST*) *FORMAT-NEXT-ARGLIST* ) #Y(#:TOP-LEVEL-FORM-11 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *FORMAT-UP-AND-OUT*) *FORMAT-UP-AND-OUT* ) #Y(#:TOP-LEVEL-FORM-12 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-ERROR REMOVE-OLD-DEFINITIONS #Y(FORMAT-ERROR #126Y(00 00 00 00 03 00 00 00 01 19 92 04 80 69 91 03 0B 0E 00 77 D9 AB DA 31 32 16 01 F9 AC DB DC DD 6D 03 06 81 02 13 02 DF DF 1A 04 AA 80 99 01 E0 B1 37 06 A4 FA 8D 62 03 B0 31 4A F6 AE E1 81 02 13 04 AD B1 AD AD 70 51 7A 01 81 02 24 03 AB B0 AC 90 02 31 17 AE E2 E3 81 03 13 04 AD DA B1 AE 72 01 36 72 02 35 7A 01 81 02 24 03 AA B1 71 4A 90 01 2D FF B6 16 02 E4 E5 AE 9F 9A 02 05 ) *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 2. "~%Current point in control string:" "~%Stelle im Kontrollstring:" "~%Position dans la chaεne de contr⌠le :" LANGUAGE 0. #\Newline "~% ~A" "~%~VT" "|" #.#'ERROR-OF-TYPE ERROR ) ) #Y(#:TOP-LEVEL-FORM-13 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT REMOVE-OLD-DEFINITIONS #Y(FORMAT #111Y(00 00 00 00 02 00 00 00 01 18 AC 8D 0A 04 AC 8E 20 14 92 03 17 AD 02 21 22 AD 8E 19 2D 9E 14 AD AD 2C 03 01 1A 37 AC 2E 00 91 03 69 37 01 71 78 AA AE AE 2C 03 01 AA 31 79 19 05 0E 02 1A 5F DB DC DD DE 6D 03 07 AF 32 01 1F AD 8E 0A 12 AD 8C 16 6D AD 71 7A AA AE AE 2C 03 01 16 01 00 19 04 E0 E1 AF E2 E3 E4 E5 E6 6D 03 07 B3 32 05 1F ) FORMAT-CS-ERROR FORMAT-APPLY *STANDARD-OUTPUT* ERROR "The destination string ~S should have a fill pointer." "String zum Vollschreiben ~S hat keinen Fill-Pointer." "La chaεne destination n'a pas de pointeur de remplissage." LANGUAGE TYPE-ERROR :DATUM :EXPECTED-TYPE (OR (MEMBER NIL T) STREAM STRING) "The destination argument ~S is invalid (not NIL or T or a stream or a string)." "Das ist weder NIL noch T noch ein Stream noch ein String: ~S" "L'argument de destination n'est ni NIL, ni T, ni un ½stream╗ ni une chaεne : ~S" ) ) #Y(#:TOP-LEVEL-FORM-14 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-APPLY REMOVE-OLD-DEFINITIONS #Y(FORMAT-APPLY #78Y(00 00 00 00 03 00 01 00 00 0A 3A 01 02 9D F7 AD 8D 0A 09 AD 8D 20 2C AD 2E 09 19 05 AD 7A 01 AE D8 AC 62 2C 04 01 9B 5A 10 02 9E 5B 10 03 A3 10 04 A7 10 05 00 10 06 00 10 07 C1 2E 08 0E 05 12 06 19 06 00 10 02 B0 B2 A2 36 01 11 19 05 ) 0. FORMAT-PARSE-CS *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT* FORMAT-INTERPRET FORMAT-CS-ERROR ) ) #Y(#:TOP-LEVEL-FORM-15 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-CS-ERROR REMOVE-OLD-DEFINITIONS #Y(FORMAT-CS-ERROR #26Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD DA DB DC DD DE 6D 03 07 E0 B2 32 06 1F ) TYPE-ERROR :DATUM :EXPECTED-TYPE (OR STRING FUNCTION) "~S: The control-string must be a string, not ~S" "~S: Kontrollstring mu▀ ein String sein, nicht ~S" "~S : La chaεne de contr⌠le doit Ωtre une chaεne et non ~S" LANGUAGE FORMAT ) ) #Y(#:TOP-LEVEL-FORM-16 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NEXT-ARG REMOVE-OLD-DEFINITIONS #Y(NEXT-ARG #39Y(00 00 00 00 00 00 00 00 00 01 0E 00 1F 0B 0E 00 77 0E 00 5B 0F 00 15 19 01 6A 01 62 DA DB DC 6D 03 05 2C 03 06 19 01 ) *FORMAT-NEXT-ARG* *FORMAT-CS* "There are not enough arguments left for this directive." "Nicht genⁿgend Argumente fⁿr diese Direktive ⁿbrig." "Il ne reste pas assez d'arguments pour cette directive." LANGUAGE FORMAT-ERROR ) ) #Y(#:TOP-LEVEL-FORM-17 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-INTERPRET REMOVE-OLD-DEFINITIONS #Y(FORMAT-INTERPRET #111Y(00 00 00 00 01 00 01 00 00 08 3A 01 08 7C 01 0E 00 1C 06 1A 09 0E 00 1B 05 6A 01 8C 97 03 00 19 03 0E 01 77 DA AB DB 31 32 25 04 34 6A 05 AE DA AD DE 71 32 DA AE DF 71 32 30 8E 1A 23 DA AB DF 71 32 AA 9F 21 04 AA 24 08 03 00 19 05 AA AF DA AE E1 71 32 DA AF E2 71 32 AF 2E 0B 36 03 16 01 16 01 0E 01 5B 0F 01 0E 00 1C FF AD 1A FF AF ) *FORMAT-UP-AND-OUT* *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1. #S(HASH-TABLE EQ (2. . 18.) (1. . 1.) (0. . 53.)) *FORMAT-CS* 2. 7. FORMAT-SEPARATOR 5. 6. FORMAT-RESOLVE-PARMS ) ) #Y(#:TOP-LEVEL-FORM-18 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-RESOLVE-PARMS REMOVE-OLD-DEFINITIONS #Y(FORMAT-RESOLVE-PARMS #66Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 8D 32 03 15 19 02 62 AB 1A 1C 2D 04 1A 11 6A 06 30 98 1A 0B 93 00 AA 23 03 70 AA 23 05 70 9B 14 83 02 16 01 82 00 9B 20 6B 16 01 AA 30 A8 19 04 ) CONTROL-STRING-DIRECTIVE 3. 4. :NEXT-ARG NEXT-ARG :ARG-COUNT *FORMAT-NEXT-ARG* ) ) #Y(#:TOP-LEVEL-FORM-19 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DEFFORMAT-SIMPLE REMOVE-OLD-DEFINITIONS MACRO #Y(DEFFORMAT-SIMPLE #219Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 36 9D 5B 77 9E 5B 5B 5A 77 9F 5B 5B 5A 5B 77 A0 5B 5B 5A 5B 5B 77 A1 5B 5B 5A 5B 5B 78 A2 5B 5B 5B 5A 77 A3 5B 5B 5B 78 AA 62 B4 30 63 41 02 DA B3 6F 03 62 B0 1A 1E AC 2E 01 19 03 9B 5A 1A 0E E0 A3 79 60 01 1A 80 40 93 00 9B 20 6F 9B 14 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8 00 DC DD B6 B6 B6 B6 DE A2 7B 04 AF B8 B8 B8 B2 DF 32 02 23 7B 04 7A 04 DD AE B7 B7 B7 B1 B7 7A 01 32 02 23 7B 03 91 07 FF B9 00 14 62 B7 1A 28 E1 E2 93 02 7A 02 E3 93 03 9F 5B 77 7A 03 7A 03 60 01 1A 0B 93 00 9B 1F 05 9B 5B 5A 1B 62 00 14 AD 7F A6 02 16 01 82 00 9B 20 69 16 01 AA 7F A8 00 B4 32 03 23 7B 03 60 03 19 0E ) 4. MACRO-CALL-ERROR "DO-" CONCAT-PNAMES PROGN DEFUN &OPTIONAL ((NEXT-ARG)) DECLARE IF NULL SETQ ) ) #Y(#:TOP-LEVEL-FORM-20 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-GOTO-NEW-ARG REMOVE-OLD-DEFINITIONS #Y(FORMAT-GOTO-NEW-ARG #43Y(00 00 00 00 02 00 00 00 00 03 91 02 0A AB 0E 01 14 30 A0 0F 01 19 03 6A 00 70 98 6A 01 70 98 AD 72 02 36 DA 72 01 33 0E 00 1A 65 ) *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 0. ) ) #Y(#:TOP-LEVEL-FORM-21 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-OLD-ROMAN REMOVE-OLD-DEFINITIONS #Y(FORMAT-OLD-ROMAN #83Y(00 00 00 00 02 00 00 00 00 03 AC 8E 0F 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC DD 6D 03 06 AF 2C 04 07 E0 E1 AE 1A 25 94 02 94 02 AC 93 04 31 B6 41 02 E2 1A 07 93 07 B4 30 8D 84 00 AA AD 90 01 32 73 16 01 15 16 01 F8 69 02 69 02 AA 8E 94 57 00 19 06 ) 1. 4999. *FORMAT-CS* "The ~~:@R directive requires an integer in the range 1 - 4999, not ~S" "Die ~~:@R-Direktive erwartet ein Integer zwischen 1 und 4999, nicht ~S" "La directive ~~:@R requiert un entier compris entre 1 et 4999 et non ~S" LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I) (1000. 500. 100. 50. 10. 5. 1.) 0. ) ) #Y(#:TOP-LEVEL-FORM-22 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-NEW-ROMAN REMOVE-OLD-DEFINITIONS #Y(FORMAT-NEW-ROMAN #125Y(00 00 00 00 02 00 00 00 00 03 AC 8E 0F 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC DD 6D 03 06 AF 2C 04 07 E0 E1 E2 E3 B0 1A 80 4B 94 04 94 04 94 04 94 04 AE 93 08 31 B6 41 02 E4 1A 18 93 09 B8 30 8D 93 0B B8 30 8D AB AB 32 01 36 1A 1D 93 0B B8 30 8D 84 00 AA AD 90 01 32 73 16 01 93 09 93 08 72 01 36 AB AB 8F 01 32 53 9C 16 03 FA 69 04 69 04 69 04 69 04 AA 8E 94 FF B0 00 19 08 ) 1. 3999. *FORMAT-CS* "The ~~@R directive requires an integer in the range 1 - 3999, not ~S" "Die ~~@R-Direktive erwartet ein Integer zwischen 1 und 3999, nicht ~S" "La directive ~~@R requiert un entier compris entre 1 et 3999 et non ~S" LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I) (1000. 500. 100. 50. 10. 5. 1.) (#\C #\C #\X #\X #\I #\I) (100. 100. 10. 10. 1. 1. 0.) 0. ) ) #Y(#:TOP-LEVEL-FORM-23 #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F 03 D8 D9 31 85 C3 19 01 ) FORMAT-CARDINAL-ONES #1=#(NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine" "ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen" "seventeen" "eighteen" "nineteen" ) (DEFCONSTANT FORMAT-CARDINAL-ONES '#1#) CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-24 #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F 03 D8 D9 31 85 C3 19 01 ) FORMAT-CARDINAL-TENS #1=#(NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty" "ninety" ) (DEFCONSTANT FORMAT-CARDINAL-TENS '#1#) CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-25 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-SMALL-CARDINAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-SMALL-CARDINAL #107Y(00 00 00 00 02 00 00 00 00 03 AC D8 31 B8 41 02 AB D9 90 01 30 0F DA 9D 5E 14 AE 37 02 30 8E DB AE 37 02 30 8E AA D9 90 01 30 3D AB D9 90 01 30 06 DC AE 37 02 30 8E AA DD 31 B8 41 02 AB DE 8F 01 2F 1E DF 9D 5E 14 B0 37 02 30 8E AA D9 90 01 30 13 E0 B0 30 8D DA 9C 5E 14 B0 37 02 30 8E 19 07 DA 9E 1A 73 00 19 07 00 19 05 ) 100. 0. #.FORMAT-CARDINAL-ONES " hundred" " and " 10. 2. #.FORMAT-CARDINAL-TENS #\- ) ) #Y(#:TOP-LEVEL-FORM-26 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-CARDINAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-CARDINAL #58Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 7E 02 00 00 AD 8D 94 1B AD 8E 96 0D D9 67 01 00 37 02 30 8E AD 81 00 36 03 AA 6C 02 01 DB AF 9D 33 19 05 D8 67 01 00 37 02 30 8E 19 04 ) "zero" "minus " #Y(FORMAT-CARDINAL-BLOCKS1000 #88Y(00 00 00 00 02 00 00 00 00 03 92 02 24 1A 2E AB E0 90 01 30 08 E1 68 00 01 37 02 30 8E AA 68 00 01 2F 0A 93 04 68 00 01 37 02 30 8E 19 05 91 02 0C 6A 01 62 DA DB DC 6D 03 05 2C 03 06 AB DF 31 B8 41 02 AB E0 90 01 30 05 94 04 AC 27 60 AA E0 8F 01 30 FF BA 00 19 05 ) NIL *FORMAT-CS* "The argument for the ~~R directive is too large." "Zu gro▀es Argument fⁿr ~~R-Direktive." "L'argument pour la directive ~~R est trop grand." LANGUAGE FORMAT-ERROR 1000. 0. ", " FORMAT-SMALL-CARDINAL ) ("" " thousand" " million" " billion" " trillion" " quadrillion" " quintillion" " sextillion" " septillion" " octillion" " nonillion" " decillion" " undecillion" " duodecillion" " tredecillion" " quattuordecillion" " quindecillion" " sexdecillion" " septendecillion" " octodecillion" " novemdecillion" " vigintillion" ) )) #Y(#:TOP-LEVEL-FORM-27 #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F 03 D8 D9 31 85 C3 19 01 ) FORMAT-ORDINAL-ONES #1=#(NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh" "eighth" "ninth" "tenth" "eleventh" "twelfth" "thirteenth" "fourteenth" "fifteenth" "sixteenth" "seventeenth" "eighteenth" "nineteenth" ) (DEFCONSTANT FORMAT-ORDINAL-ONES '#1#) CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-28 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-ORDINAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-ORDINAL #128Y(00 00 00 00 02 00 00 00 00 03 AC 8D 94 80 59 AC 8E 96 0B D9 AC 37 02 30 8E AC 81 00 36 02 AC DA 31 B6 41 02 AB DB 90 01 30 08 AB DA 72 02 37 AE 2F 04 AA 8D 94 3A AA DE 31 B6 41 02 AD DB 90 01 30 04 DF B0 30 8D AB E0 8F 01 2F 2C AA 8D 94 2C E3 9D 5E 14 B0 37 02 30 8E E4 B0 30 8D E1 9C 5E 14 B0 37 02 30 8E 19 07 D8 AC 37 02 30 8E 19 03 DD AE 37 02 30 8E 19 05 E1 9E 1A 63 E2 9D 1A 5F ) "zeroth" "minus " 100. 0. FORMAT-CARDINAL "th" 10. #\Space 2. #.FORMAT-ORDINAL-ONES #(NIL "tenth" "twentieth" "thirtieth" "fortieth" "fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth" ) #.FORMAT-CARDINAL-TENS #\- ) ) #Y(#:TOP-LEVEL-FORM-29 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-PADDING REMOVE-OLD-DEFINITIONS #Y(FORMAT-PADDING #28Y(00 00 00 00 03 00 00 00 00 04 D8 1A 06 AD AD 30 8D 84 00 AA AF 90 01 32 74 00 19 05 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-30 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-PADDED-STRING REMOVE-OLD-DEFINITIONS #Y(FORMAT-PADDED-STRING #72Y(00 00 00 00 07 00 00 00 00 00 AC 71 4A B0 72 02 35 AA B3 8F 01 2F 1B C3 14 91 05 06 AE AE 37 02 30 8E B1 AB 72 02 35 B1 AF 2C 03 01 91 05 11 00 19 0A B2 AB 72 01 36 B2 71 B7 B2 32 02 37 1A 58 AE AE 37 02 30 8E 19 0A ) 0. FORMAT-PADDING ) ) #Y(#:TOP-LEVEL-FORM-31 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-INTEGER REMOVE-OLD-DEFINITIONS #Y(FORMAT-INTEGER #179Y(00 00 00 00 09 00 00 00 00 00 A4 10 00 00 10 01 00 10 02 BB 8E 94 06 91 0D 03 92 0C 36 B5 70 8C AA 71 4A B7 8D 96 33 9B 14 91 10 33 C6 14 92 10 05 B9 DB 32 01 30 14 91 00 2C C6 14 AE AD 72 03 35 AA 37 01 70 47 92 02 05 AA DB DD 30 38 AF AC 1A 80 43 B5 B5 30 89 1A 80 55 AA 31 9A 1A 49 96 00 BC 31 B6 1A 47 C7 1A 52 AA BC 37 02 30 8E 16 07 1A 3C 85 00 AC AB B4 AE 70 36 30 38 AF 8E 95 15 B1 AC 72 01 36 C2 71 BA 8E 94 0A 85 00 AC AB 65 1A 30 38 85 05 85 01 14 8E 96 57 16 02 C2 8D 94 47 C2 DC DB 65 1A 63 AF C1 2C 07 06 16 07 12 03 19 0A ) *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* 0. 1. #\+ FORMAT-PADDED-STRING ) ) #Y(#:TOP-LEVEL-FORM-32 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-ASCII-DECIMAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-ASCII-DECIMAL #27Y(00 00 00 00 02 00 00 00 00 03 C3 10 01 00 10 02 00 10 03 B5 B5 30 89 12 03 19 03 ) 10. *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* ) ) #Y(#:TOP-LEVEL-FORM-33 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-BASE REMOVE-OLD-DEFINITIONS #Y(FORMAT-BASE #55Y(00 00 00 00 09 00 00 00 00 00 AF 8E 94 06 91 07 03 92 06 12 AB 8E 0F 0E B3 B0 B0 B0 B0 B6 B6 B2 BA 2C 09 03 19 0A A4 10 00 00 10 01 00 10 02 B4 BC 30 89 12 03 19 0A ) *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* FORMAT-INTEGER ) ) #Y(#:TOP-LEVEL-FORM-34 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-SCALE-EXPONENT-AUX REMOVE-OLD-DEFINITIONS #Y(FORMAT-SCALE-EXPONENT-AUX #98Y(00 00 00 00 06 00 00 00 00 00 B0 31 C0 41 02 B2 8D 94 16 AA AE 72 02 37 37 01 71 B8 B3 B1 AC 71 9D 72 01 38 B1 AB AD 1A 14 B1 D8 3F 02 19 09 AD AD 81 01 38 01 84 00 AC B5 81 02 37 02 AB B6 90 01 2F 6C B4 AC AC 1A 0E AE AD 81 02 37 01 85 00 AC B8 81 02 37 02 AB B7 90 01 32 6C AB AB 3F 02 19 11 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-35 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-SCALE-EXPONENT REMOVE-OLD-DEFINITIONS #Y(FORMAT-SCALE-EXPONENT #77Y(00 00 00 00 01 00 00 00 00 02 AB 8D 13 24 AB 8D 14 28 AB 8D 15 2C AB 8E 16 30 AB E6 AD 71 B1 E7 AE 71 B1 E8 AF 71 B1 E9 B0 71 B1 D5 14 2C 06 05 19 02 AB D8 D9 DA DB C7 1A 72 AB DE DF E0 E1 C7 1A 6A AB E2 E3 E4 E5 C7 1A 62 00 19 02 ) 0.0s0 1.0s0 10.0s0 0.1s0 0.30103s0 FORMAT-SCALE-EXPONENT-AUX 0.0f0 1.0f0 10.0f0 0.1f0 0.0d0 1.0d0 10.0d0 0.1d0 0. 1. 10. #10r1/10 0.30102999566d0 ) ) #Y(#:TOP-LEVEL-FORM-36 #39Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 63 37 06 C4 FB 7D 02 30 1C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31 84 C5 19 02 ) 20. STRING-CHAR FORMAT-FLOAT-TO-STRING REMOVE-OLD-DEFINITIONS #Y(FORMAT-FLOAT-TO-STRING #749Y(00 00 00 00 05 00 00 00 00 06 AF 8D 94 80 7D AF 31 C6 41 02 B1 37 01 71 C4 71 9A AC DC DC DC D9 D9 D9 01 05 68 00 01 D9 30 18 B7 D9 8F 01 30 80 8A B7 D9 90 01 2F 08 DC B8 72 00 36 80 D4 0A B8 DC B8 71 D4 8F 01 2D 80 80 92 11 1F 14 D9 8F 01 2F 80 8C DD BC 71 9D B6 AB 81 02 37 0C B3 AB 81 02 37 09 B4 AB 81 02 37 0A 16 01 B5 DD 72 02 37 B5 8F 01 32 80 90 85 07 B5 DD 81 02 37 0B B3 DD 81 02 37 09 B2 DD 81 02 37 08 1A 5F 91 03 01 C4 14 91 02 01 C4 14 72 01 33 92 05 0A AA B0 90 01 32 04 AF 80 9A 00 95 00 DA 70 47 AA D9 DB 30 38 95 01 63 AD 71 94 D9 3F 05 19 07 B8 B8 80 D4 0B DC B8 80 D4 09 FE 1A FF 76 B2 DC 80 D4 08 B5 DC 80 D4 0B B4 DC 80 D4 0A 92 11 FF 8F 1A FF 6D DD BC 72 00 36 71 9D B5 AB 81 02 37 0B 16 01 1A FF 7A 14 32 00 36 1A 32 DC BE 32 01 36 1A 2B B4 DD 81 02 37 0A 84 07 B5 DC 71 D4 B3 72 02 35 B5 DC 71 D4 90 01 2F 68 91 12 58 92 13 39 B1 D9 8F 01 2F 55 B1 BE 72 01 36 31 99 FA 92 10 28 AE BB 72 00 36 90 01 30 1F BA 81 00 36 04 92 12 1A 1A 1B D9 1A 08 AB DD 81 02 37 01 84 00 AA AD 90 01 32 72 16 01 1A 2E 91 12 03 92 13 3C AE B2 72 01 36 B5 AB D9 8F 01 32 59 D9 AC 72 00 36 1A 0D 7D 05 16 02 1A 23 AC DD 80 B7 02 84 01 AB AB 90 01 32 73 16 02 AA B6 81 01 33 0B AA B5 81 01 33 0A 14 AB 8F 01 2D 59 16 02 B5 DC 71 D4 B3 72 02 35 B5 DC 71 D4 90 01 2F FF 5E B1 D9 90 01 2F 80 78 A1 FB DB 68 00 01 37 01 30 1B D9 B2 72 00 36 1A 80 5E B5 DC 71 D4 B5 DC 71 D4 B4 72 01 36 32 01 32 1A 80 9A DE AD 70 36 68 00 01 37 01 30 1B 84 06 1A 80 44 9E 1A 80 BC 9E 1A 80 B8 D9 1A 0C 84 07 DA 68 00 01 37 01 30 1B 84 00 AA B3 90 01 32 6E 16 01 DB 68 00 01 37 01 30 1B A1 FB 92 12 80 C9 1A 80 A6 84 08 DA 68 00 01 37 01 30 1B 84 01 AB AB 90 01 32 6E 16 02 B1 8E 94 0A DB 68 00 01 37 01 30 1B A1 FB 85 07 B5 DD 72 02 37 B5 31 B8 41 02 69 0C 69 02 B3 DD 81 02 37 09 B2 DD 81 02 37 08 B5 DC 71 D4 B4 81 01 2F 01 91 03 FF 63 B5 DC 71 D4 B5 DC 71 D4 B4 72 01 36 32 01 30 F6 91 01 0E 91 00 0B 92 04 FF 5B B1 AF 90 01 31 FF 54 92 04 06 B1 AF 90 01 32 27 DF 92 02 04 92 01 FF 53 92 01 03 92 02 0A B6 DC 71 D4 B6 8F 01 31 FF 47 AD 31 99 14 70 36 68 00 01 37 01 30 1B 84 06 B1 D9 8F 01 32 FF 35 92 12 20 D9 BD B2 B2 72 01 36 72 01 36 1A 0C 84 08 DA 68 00 01 37 01 30 1B 84 01 AB AB 90 01 32 6E 16 02 68 00 01 95 07 B1 D9 72 01 2D B2 B4 72 01 2D B3 3F 05 19 15 ) NIL 0. #\0 #\. 1. 10. "0123456789" "0123456789" ) ) #Y(#:TOP-LEVEL-FORM-37 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-FLOAT-FOR-F REMOVE-OLD-DEFINITIONS #Y(FORMAT-FLOAT-FOR-F #202Y(00 00 00 00 08 00 00 00 00 00 91 08 80 57 00 14 AD AB B4 B4 62 2C 05 00 41 04 B6 23 01 80 51 92 0D 0E AE AD 81 01 36 04 91 01 80 5E 91 00 80 66 92 0A 08 92 0D 05 AE 8D 96 80 6A 92 0D 0C AE D9 90 01 30 06 AE B4 B2 2C 03 02 B1 8D 96 80 5E 92 08 80 64 C7 14 B1 30 8D 92 01 80 62 1A 80 5B B2 31 9A 1A FF AA 91 03 77 AC 8D 96 73 A3 1A FF 9F 7C 00 92 0D FF BA 1A FF A9 85 04 92 00 FF B1 1A 15 85 04 92 0A FF B4 1A FF A9 AE D9 8F 01 30 69 7C 01 92 00 FF 9A AE D9 8F 01 30 65 7C 00 92 0A FF 99 1A FF 8E B7 B5 B2 2C 03 02 19 0E C6 1A FF A3 DD B1 30 8D 19 0E 92 01 04 DD B1 30 8D AD B1 37 02 30 8E 91 00 6A 00 19 0E ) FORMAT-FLOAT-TO-STRING 0. FORMAT-PADDING #\- #\+ #\0 ) ) #Y(#:TOP-LEVEL-FORM-38 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-FLOAT-FOR-E REMOVE-OLD-DEFINITIONS #Y(FORMAT-FLOAT-FOR-E #405Y(00 00 00 00 0A 00 00 00 00 00 AC 71 A1 2E 00 41 02 AE 8D 94 80 93 AA B4 32 01 36 14 AA 71 A1 37 0B C5 FA 7C 05 14 70 8A 91 0C 80 81 AA 31 4A 14 91 0E 80 8D 00 14 B7 8D 96 80 90 00 14 91 11 80 92 00 14 92 0E 0D 92 12 0A 92 10 07 AD BB 8F 01 30 80 89 92 12 09 91 0B 04 B4 8E 96 02 85 00 B1 AB AE BC AF 2C 05 06 41 04 92 16 0E AE AD 81 01 36 04 91 00 80 7F 91 01 80 8A 92 12 08 92 16 05 AE 8D 96 80 8E 92 16 0C AE D9 90 01 30 06 AE BC B9 2C 03 05 B8 8D 96 80 82 92 0F 80 9E CB 14 B8 30 8D 92 01 80 9C 1A 80 95 C4 1A FF 6E AA 71 4A B7 32 01 33 1A FF 78 B8 B7 72 01 36 31 99 1A FF 74 B6 D9 8F 01 30 70 A9 1A FF 6A DB B8 32 01 36 1A FF 69 14 DC AE 32 02 36 1A FF 66 BC B9 B5 2C 03 05 19 13 85 04 92 01 FF 90 1A 18 85 04 92 12 FF 93 1A FF 88 92 06 6C B0 D9 8F 01 30 66 7C 00 92 01 FF 76 AE D9 8F 01 30 62 7C 01 92 12 FF 75 1A FF 6A C0 BD B9 2C 03 05 19 17 CA 1A FF 7F E1 B8 30 8D 92 10 28 1A 80 40 D0 1A 3D D1 1A 3A D2 1A 37 D3 1A 34 D4 1A 31 CA 1A 37 92 01 04 E1 B8 30 8D AD B8 37 02 30 8E 91 00 54 91 10 1B 0E 0A 1B 06 B8 6A 0B 89 0C 51 B8 8D 13 50 B8 8D 14 4F B8 8D 15 4E B8 8D 16 4D 00 14 B8 30 8D B3 8D 96 47 CB 14 B8 30 8D 92 14 14 14 B3 71 4A 90 01 30 0C BE B3 71 4A 72 01 36 E1 B9 2C 03 05 B2 B8 37 02 30 8E 19 17 ) FORMAT-SCALE-EXPONENT 0. 10. 1. 2. FORMAT-PADDING FORMAT-FLOAT-TO-STRING #\- #\+ #\0 *PRINT-READABLY* *READ-DEFAULT-FLOAT-FORMAT* TYPEP #\E #\s #\f #\d #\L ) ) #Y(#:TOP-LEVEL-FORM-39 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-SKIP-TO-END REMOVE-OLD-DEFINITIONS #Y(FORMAT-SKIP-TO-END #39Y(00 00 00 00 00 00 00 00 00 01 1A 0C 0E 00 77 D9 AB DA 31 32 16 01 0F 00 0E 00 77 D9 AB DA 31 32 16 01 1B 68 00 19 01 ) *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8. ) ) #Y(#:TOP-LEVEL-FORM-40 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-JUSTIFIED-SEGMENTS REMOVE-OLD-DEFINITIONS #Y(FORMAT-JUSTIFIED-SEGMENTS #183Y(00 00 00 00 06 00 00 00 00 00 D8 D8 AD 62 1A 24 C4 1A 39 C4 1A 3B C3 1A 80 58 62 AB C3 5F 92 0B 80 6D 1A 80 6E 86 01 00 84 03 AC AB 71 4A 81 02 35 02 82 01 AB 8C 97 6D 16 02 91 05 08 AB D9 90 01 2D 02 9F 58 14 DA AD 91 02 45 C3 14 91 08 43 C3 14 72 04 35 AC AB B4 72 02 37 72 02 35 B5 AB B7 8F 01 31 FF B0 AB B7 72 01 36 B6 71 B7 B6 32 02 37 14 72 02 35 AA AF 72 01 36 AD 31 B6 41 02 95 07 37 07 A4 FA 70 1C 92 06 FF 8E 91 0B 04 62 AB A5 5F D8 1A 15 AB 9C 5E 1C 0E AB 9C 5E 14 71 99 AA AD 9E 5F 16 01 85 02 84 00 AC 8E 94 67 16 01 AA AE 3F 02 19 10 ) 0. 1. -1. ) ) #Y(#:TOP-LEVEL-FORM-41-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-ASCII REMOVE-OLD-DEFINITIONS #Y(FORMAT-ASCII #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-ASCII ) ) #Y(#:TOP-LEVEL-FORM-41-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-ASCII REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-ASCII #80Y(00 00 00 00 08 00 00 00 00 00 92 05 27 92 04 29 92 03 2B 92 02 2D 92 07 05 91 01 02 C6 F7 AF 8E 94 04 AD 8D 94 24 AF AF AF AF B4 B0 70 8C B8 2C 07 04 19 09 C3 FB 91 04 57 C4 FA 91 03 55 C3 F9 91 02 53 C5 F8 92 07 56 1A 4F AB B3 30 89 19 09 ) 0. 1. #\Space "()" FORMAT-PADDED-STRING ) ) #Y(#:TOP-LEVEL-FORM-42-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS #Y(FORMAT-S-EXPRESSION #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-S-EXPRESSION ) ) #Y(#:TOP-LEVEL-FORM-42-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-S-EXPRESSION #93Y(00 00 00 00 08 00 00 00 00 00 92 05 28 92 04 2A 92 03 2C 91 02 02 C5 F8 AF 8E 94 04 AD 8D 94 2E AF AF AF AF B4 92 0C 03 92 06 2F B0 30 8B 14 B8 2C 07 05 19 09 C3 FB 91 04 56 C4 FA 91 03 54 C3 F9 92 02 52 1A 52 DB B3 37 02 30 8E 19 09 92 07 03 92 01 72 AB B3 30 86 19 09 C7 1A 51 ) 0. 1. #\Space "()" "()" FORMAT-PADDED-STRING ) ) #Y(#:TOP-LEVEL-FORM-43-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-WRITE REMOVE-OLD-DEFINITIONS #Y(FORMAT-WRITE #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-WRITE ) ) #Y(#:TOP-LEVEL-FORM-43-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-WRITE REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-WRITE #73Y(00 00 00 00 08 00 00 00 00 00 92 05 23 92 04 25 92 03 27 91 02 02 C5 F8 AF 8E 94 04 AD 8D 94 21 AF AF AF AF B4 B0 37 0C 70 8A B8 2C 07 03 19 09 C3 FB 91 04 5B C4 FA 91 03 59 C3 F9 92 02 57 1A 57 AB 37 0C BF 30 85 19 09 ) 0. 1. #\Space FORMAT-PADDED-STRING ) ) #Y(#:TOP-LEVEL-FORM-44-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-DECIMAL #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-DECIMAL ) ) #Y(#:TOP-LEVEL-FORM-44-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-DECIMAL #55Y(00 00 00 00 08 00 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3 B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9 92 02 61 1A 61 ) 0. #\Space #\, 3. 10. FORMAT-BASE ) ) #Y(#:TOP-LEVEL-FORM-45-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-BINARY REMOVE-OLD-DEFINITIONS #Y(FORMAT-BINARY #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-BINARY ) ) #Y(#:TOP-LEVEL-FORM-45-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-BINARY REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-BINARY #55Y(00 00 00 00 08 00 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3 B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9 92 02 61 1A 61 ) 0. #\Space #\, 3. 2. FORMAT-BASE ) ) #Y(#:TOP-LEVEL-FORM-46-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-OCTAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-OCTAL #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-OCTAL ) ) #Y(#:TOP-LEVEL-FORM-46-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-OCTAL REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-OCTAL #55Y(00 00 00 00 08 00 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3 B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9 92 02 61 1A 61 ) 0. #\Space #\, 3. 8. FORMAT-BASE ) ) #Y(#:TOP-LEVEL-FORM-47-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-HEXADECIMAL #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-HEXADECIMAL ) ) #Y(#:TOP-LEVEL-FORM-47-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-HEXADECIMAL #55Y(00 00 00 00 08 00 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3 B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9 92 02 61 1A 61 ) 0. #\Space #\, 3. 16. FORMAT-BASE ) ) #Y(#:TOP-LEVEL-FORM-48-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-RADIX REMOVE-OLD-DEFINITIONS #Y(FORMAT-RADIX #36Y(00 00 00 00 03 00 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 B2 B2 B2 B2 B2 B2 B2 B2 2D 00 14 2C 09 01 19 09 ) NEXT-ARG DO-FORMAT-RADIX ) ) #Y(#:TOP-LEVEL-FORM-48-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-RADIX REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-RADIX #112Y(00 00 00 00 09 00 00 00 00 00 92 05 19 92 04 1B 92 03 1D 92 02 1F 91 06 21 91 07 3B 91 08 80 4A AB B4 2F 0E 19 0A C3 FB 91 04 65 C4 FA 91 03 63 C5 F9 91 02 61 C6 F8 92 06 5F 14 B0 B0 B0 B0 B7 B7 B2 BB 2C 09 04 19 0A AB B4 2F 05 19 0A 91 08 77 AB B4 2F 06 19 0A AB 8D 0F 73 6A 07 62 E0 E1 E2 6D 03 0B AE 2C 04 0C 19 0A AB B4 2F 0D 19 0A ) 0. #\Space #\, 3. FORMAT-INTEGER FORMAT-OLD-ROMAN FORMAT-NEW-ROMAN *FORMAT-CS* "The ~~R and ~~:R directives require an integer argument, not ~S" "Die ~~R- und ~~:R-Direktiven erwarten ein Integer als Argument, nicht ~S" "Les directives ~~R et ~~:R nΘcessitent un argument de type entier et non ~S" LANGUAGE FORMAT-ERROR FORMAT-ORDINAL FORMAT-CARDINAL ) ) #Y(#:TOP-LEVEL-FORM-49 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-PLURAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-PLURAL #53Y(00 00 00 00 03 00 00 00 00 04 92 02 04 63 D8 2F 01 2D 02 14 C3 59 14 91 02 0C 91 00 15 DD AF 30 8D 19 05 C6 1A 04 91 00 7A C7 14 AF 37 02 30 8E 19 05 00 19 05 ) 1. FORMAT-GOTO-NEW-ARG NEXT-ARG "y" "ies" #\s ) ) #Y(#:TOP-LEVEL-FORM-50-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS #Y(FORMAT-CHARACTER #21Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2D 00 14 2C 04 01 19 04) NEXT-ARG DO-FORMAT-CHARACTER ) ) #Y(#:TOP-LEVEL-FORM-50-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-CHARACTER #214Y(00 00 00 00 04 00 00 00 00 05 00 2A 01 7E 05 00 00 AC 8D 1F 0D 6A 00 62 D9 DA DB 6D 03 04 AF 2C 04 05 AA 6C 06 01 92 04 0A 92 05 80 50 E3 E4 62 1A 80 77 DF 62 1A 34 00 1A 26 AD E2 AF 70 29 70 2B 67 02 00 30 8D 19 07 86 01 00 AF AB 8C 33 19 AA 71 8E 37 02 70 4E 67 04 00 37 01 91 0A 58 CB 14 30 8E E1 67 04 00 30 8D 82 01 AB 8C 97 59 16 02 92 05 46 AD 37 02 70 2B 9C 33 19 07 AD 67 02 00 30 86 19 07 78 67 03 00 37 02 30 8E 19 08 86 01 00 B0 AB 8C 33 0F 93 02 67 05 00 37 02 30 8E B0 AB 62 7F 34 06 82 02 82 01 AB 8C 97 61 16 03 AD E5 37 03 70 BF 91 00 4C AE E6 8C 33 13 E7 E8 E9 6D 03 04 67 03 00 37 02 30 8E AE E6 62 7F 34 04 AE 9D 33 19 08 ) *FORMAT-CS* "The ~~C directive requires a character argument, not ~S" "Die ~~C-Direktive erwartet ein Character, nicht ~S" "La directive ~~C requiert un caractΦre et non ~S" LANGUAGE FORMAT-ERROR #Y(DO-FORMAT-CHARACTER-WRITE-CHARNAME #38Y(00 00 00 00 01 00 00 00 00 02 AB 70 32 91 00 08 AC 68 00 01 30 8D 19 03 14 37 02 70 4E 68 00 01 37 02 30 8E 19 03 ) NIL ) (:CONTROL :META :SUPER :HYPER) 1. #\- 0. ("Shift-" "Control-" "Alternate-") (:SUPER :CONTROL :META) ((#\HYPER-Dle . "Insert") (#\HYPER-Dc1 . "End") (#\HYPER-Dc2 . "Down") (#\HYPER-Dc3 . "PgDn") (#\HYPER-Dc4 . "Left") (#\HYPER-Nak . "Center") (#\HYPER-Syn . "Right") (#\HYPER-Etb . "Home") (#\HYPER-Can . "Up") (#\HYPER-Em . "PgUp") (#\HYPER-A . "F1") (#\HYPER-B . "F2") (#\HYPER-C . "F3") (#\HYPER-D . "F4") (#\HYPER-E . "F5") (#\HYPER-F . "F6") (#\HYPER-G . "F7") (#\HYPER-H . "F8") (#\HYPER-I . "F9") (#\HYPER-J . "F10") (#\HYPER-K . "F11") (#\HYPER-L . "F12") ) :HYPER "Keypad-" "Ziffernblock-" "bloc numΘrique " ) ) #Y(#:TOP-LEVEL-FORM-51-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS #Y(FORMAT-FIXED-FLOAT #36Y(00 00 00 00 03 00 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 B2 B2 B2 B2 B2 B2 B2 B2 2D 00 14 2C 09 01 19 09 ) NEXT-ARG DO-FORMAT-FIXED-FLOAT ) ) #Y(#:TOP-LEVEL-FORM-51-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-FIXED-FLOAT #58Y(00 00 00 00 09 00 00 00 00 00 92 04 19 91 02 02 C4 F8 AB 8E 11 06 AB 37 01 80 B1 01 AB 8D 12 0D AB B4 2F 03 19 0A C3 FA 92 02 65 1A 65 B0 B0 B0 B0 B0 B6 B1 BA 2C 08 02 19 0A ) 0. #\Space FORMAT-FLOAT-FOR-F FORMAT-ASCII-DECIMAL ) ) #Y(#:TOP-LEVEL-FORM-52-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS #Y(FORMAT-EXPONENTIAL-FLOAT #42Y(00 00 00 00 03 00 07 00 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 B4 B4 B4 B4 B4 B4 B4 B4 B4 B4 2D 00 14 2C 0B 01 19 0B ) NEXT-ARG DO-FORMAT-EXPONENTIAL-FLOAT ) ) #Y(#:TOP-LEVEL-FORM-52-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-EXPONENTIAL-FLOAT #60Y(00 00 00 00 0B 00 00 00 00 00 92 05 19 91 03 02 C4 F9 AB 8E 11 06 AB 37 01 80 B1 01 AB 8D 12 0D AB B6 2F 03 19 0C C3 FB 92 03 65 1A 65 B2 B2 B2 B2 B2 B2 B2 BA B3 BE 2C 0A 02 19 0C ) 1. #\Space FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL ) ) #Y(#:TOP-LEVEL-FORM-53-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS #Y(FORMAT-GENERAL-FLOAT #42Y(00 00 00 00 03 00 07 00 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 B4 B4 B4 B4 B4 B4 B4 B4 B4 B4 2D 00 14 2C 0B 01 19 0B ) NEXT-ARG DO-FORMAT-GENERAL-FLOAT ) ) #Y(#:TOP-LEVEL-FORM-53-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-GENERAL-FLOAT #156Y(00 00 00 00 0B 00 00 00 00 00 92 05 1A 91 03 02 C4 F9 AB 8E 11 06 AB 37 01 80 B1 01 AB 8D 12 80 50 AB B6 2F 0B 19 0C C3 FB 92 03 64 1A 64 AD 71 A1 01 04 2C 05 03 41 02 96 00 D8 72 01 33 AD DC 72 01 34 32 01 33 16 02 FF 92 08 33 DD B3 32 02 35 1A 2D 14 AC 32 01 36 1A 04 91 0C 76 00 14 AB DF B5 B5 BC B5 C0 2C 08 08 AB D9 BB 2C 03 09 19 10 AB 71 A1 2E 02 41 02 92 09 FF B2 91 08 4D C9 14 B4 AC 72 01 36 DF AB B7 8F 02 31 4D B6 B6 B6 B6 B6 B6 B6 BE B7 C2 2C 0A 0A 19 10 ) 1. #\Space FORMAT-SCALE-EXPONENT FORMAT-FLOAT-TO-STRING 7. 2. 4. 0. FORMAT-FLOAT-FOR-F FORMAT-PADDING FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL ) ) #Y(#:TOP-LEVEL-FORM-54-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS #Y(FORMAT-DOLLARS-FLOAT #33Y(00 00 00 00 03 00 04 00 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00 14 2C 08 01 19 08 ) NEXT-ARG DO-FORMAT-DOLLARS-FLOAT ) ) #Y(#:TOP-LEVEL-FORM-54-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-DOLLARS-FLOAT #169Y(00 00 00 00 08 00 00 00 00 00 92 05 80 5E 92 04 80 60 92 03 80 62 91 02 02 C6 F8 AB 8E 11 06 AB 37 01 80 B1 01 AB 8E 12 80 79 AB 62 B1 DA 62 2C 05 04 41 05 AA B4 72 01 33 D9 91 0D 80 43 B2 8D 96 3F C5 14 AC B8 72 04 35 B4 AB 72 01 36 DA 72 01 33 91 0F 06 AA B5 BC 2C 03 05 B3 8D 96 26 92 0E 26 CA 14 BB 30 8D 92 0F 27 1A 1F C3 FB 91 04 FF A0 C4 FA 91 03 FF 9E C5 F9 92 02 FF 9B 1A FF 9A C4 1A FF BE C9 1A 5B 92 0F 06 AA B5 BC 2C 03 05 AC AE 72 01 36 E0 BC 2C 03 05 B1 BB 37 02 30 8E 19 11 AB B3 2F 09 19 09 ) 2. 1. 0. #\Space FORMAT-FLOAT-TO-STRING FORMAT-PADDING #\- #\+ #\0 FORMAT-ASCII-DECIMAL ) ) #Y(#:TOP-LEVEL-FORM-55 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-TERPRI REMOVE-OLD-DEFINITIONS #Y(FORMAT-TERPRI #42Y(00 00 00 00 03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A 05 AF 30 90 84 00 AA AD 90 01 32 75 00 19 06 ) 1. 0. ) ) #Y(#:TOP-LEVEL-FORM-56 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-FRESH-LINE REMOVE-OLD-DEFINITIONS #Y(FORMAT-FRESH-LINE #54Y(00 00 00 00 03 00 01 00 00 0A 3A 01 1D C3 F7 92 01 1B 1A 1B AE 30 91 D9 96 02 1A 05 B0 30 90 84 01 AB AB 90 01 32 75 00 19 07 91 01 02 C3 F7 AB 8D 95 61 00 19 05 ) 1. 0. ) ) #Y(#:TOP-LEVEL-FORM-57 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-PAGE REMOVE-OLD-DEFINITIONS #Y(FORMAT-PAGE #43Y(00 00 00 00 03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A 06 DA B0 30 8D 84 00 AA AD 90 01 32 74 00 19 06 ) 1. 0. #\Page ) ) #Y(#:TOP-LEVEL-FORM-58 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-TILDE REMOVE-OLD-DEFINITIONS #Y(FORMAT-TILDE #43Y(00 00 00 00 03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A 06 DA B0 30 8D 84 00 AA AD 90 01 32 74 00 19 06 ) 1. 0. #\~ ) ) #Y(#:TOP-LEVEL-FORM-59 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-TABULATE REMOVE-OLD-DEFINITIONS #Y(FORMAT-TABULATE #116Y(00 00 00 00 03 00 02 00 00 0F 3A 02 02 C3 F8 3A 01 29 C3 F7 91 02 27 C3 F8 92 01 25 1A 25 AC AB AE 72 02 35 72 00 36 AD 71 BA 72 02 35 C5 1A 3D AC AB 72 01 36 C5 1A 35 00 19 09 92 02 59 91 01 02 C3 F7 AC D9 72 01 33 AC D8 72 01 33 B1 70 95 91 06 4B AA AD 8F 01 2F 57 AE 8D 94 5B AE AD AC 72 01 36 B0 72 00 36 71 BA 72 02 35 C5 14 B4 2C 03 03 19 09 ) 1. 0. #\Space FORMAT-PADDING ) ) #Y(#:TOP-LEVEL-FORM-60 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-GOTO REMOVE-OLD-DEFINITIONS #Y(FORMAT-GOTO #44Y(00 00 00 00 03 00 01 00 00 0A 3A 01 12 7C 01 92 02 10 91 01 01 C3 14 6A 01 30 A0 0F 02 19 05 91 02 70 AD 91 02 01 C6 14 2F 04 19 05 ) 0. *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 1. FORMAT-GOTO-NEW-ARG ) ) #Y(#:TOP-LEVEL-FORM-61 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS #Y(FORMAT-INDIRECTION #67Y(00 00 00 00 03 00 00 00 00 04 2D 00 14 AA 6E 01 91 03 1F 2D 00 14 B0 AC AC AD 2C 04 07 19 07 93 00 9C 5B 10 02 00 10 03 A1 10 04 B9 2E 05 12 03 19 07 9B 20 6A 00 10 04 AD B3 0E 06 36 01 11 0F 06 19 06 ) NEXT-ARG DO-FORMAT-INDIRECTION-1 *FORMAT-CSDL* *FORMAT-UP-AND-OUT* *FORMAT-CS* FORMAT-INTERPRET *FORMAT-NEXT-ARG* DO-FORMAT-INDIRECTION-2 ) ) #Y(#:TOP-LEVEL-FORM-62 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-INDIRECTION #36Y(00 00 00 00 03 00 00 00 00 04 AC 8D 0A 07 AC 8D 20 03 AC 2E 00 AB 8D 0E 03 AB 2E 01 AD AD AD 2C 03 02 19 04 ) FORMAT-INDIRECTION-CSERROR FORMAT-INDIRECTION-LERROR FORMAT-APPLY ) ) #Y(#:TOP-LEVEL-FORM-63 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-INDIRECTION-1 REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-INDIRECTION-1 #39Y(00 00 00 00 01 00 00 00 00 02 AB 8D 0A 09 AB 8D 20 12 AB 2E 02 19 02 AB 7A 01 AC D8 AC 62 2C 04 01 15 19 02 9C 19 02 ) 0. FORMAT-PARSE-CS FORMAT-INDIRECTION-CSERROR ) ) #Y(#:TOP-LEVEL-FORM-64 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-INDIRECTION-2 REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-INDIRECTION-2 #60Y(00 00 00 00 04 00 00 00 00 05 AC 8D 0E 03 AC 2E 00 9E 20 0B 00 10 01 B0 B2 A2 36 01 11 19 05 9E 5A 10 01 A1 5B 10 02 A2 10 03 A6 10 04 00 10 05 00 10 06 C0 2E 07 0E 04 12 05 1A 60 ) FORMAT-INDIRECTION-LERROR *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT* FORMAT-INTERPRET ) ) #Y(#:TOP-LEVEL-FORM-65 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-INDIRECTION-CSERROR REMOVE-OLD-DEFINITIONS #Y(FORMAT-INDIRECTION-CSERROR #25Y(00 00 00 00 01 00 00 00 00 02 6A 00 62 D9 DA DB 6D 03 04 AE 2C 04 05 19 02 ) *FORMAT-CS* "The control string argument for the ~~? directive is invalid: ~S" "Als Kontrollstring fⁿr ~~? ist das untauglich: ~S" "~S ne convient pas comme chaεne de contr⌠le pour ~~?." LANGUAGE FORMAT-ERROR ) ) #Y(#:TOP-LEVEL-FORM-66 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-INDIRECTION-LERROR REMOVE-OLD-DEFINITIONS #Y(FORMAT-INDIRECTION-LERROR #25Y(00 00 00 00 01 00 00 00 00 02 6A 00 62 D9 DA DB 6D 03 04 AE 2C 04 05 19 02 ) *FORMAT-CS* "The argument list argument for the ~~? directive is invalid: ~S" "Das ist keine passende Argumentliste fⁿr die ~~?-Direktive: ~S" "Ceci n'est pas une liste d'arguments convenable pour la directive ~~? : ~S" LANGUAGE FORMAT-ERROR ) ) #Y(#:TOP-LEVEL-FORM-67 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-CASE-CONVERSION REMOVE-OLD-DEFINITIONS #Y(FORMAT-CASE-CONVERSION #69Y(00 00 00 00 03 00 00 00 00 04 0E 00 5B 0F 00 AD 70 95 71 78 AA D9 2F 02 AA 80 79 00 91 03 17 91 02 1E AA 37 02 30 4B 14 AF 37 02 30 8E 19 05 AA 37 02 30 49 1A 71 91 02 76 AA 37 02 30 4D 1A 67 AA 2E 03 1A 62 ) *FORMAT-CSDL* FORMAT-CASE-CONVERSION-END FORMAT-INTERPRET NSTRING-CAPITALIZE1 ) ) #Y(#:TOP-LEVEL-FORM-68 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NSTRING-CAPITALIZE1 REMOVE-OLD-DEFINITIONS #Y(NSTRING-CAPITALIZE1 #52Y(00 00 00 00 01 00 00 00 00 02 AB 37 02 7F 4B 01 D8 AC 71 4A 1A 02 84 01 AB AB 8F 01 32 11 AD AC 70 36 8C 24 71 AD AC AF AE 70 36 70 2D 30 38 16 02 9C 19 02 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-69 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-CONDITIONAL REMOVE-OLD-DEFINITIONS #Y(FORMAT-CONDITIONAL #223Y(00 00 00 00 03 00 01 00 00 0A 3A 01 80 5C 7C 01 92 03 80 5A 91 02 1C 2D 01 1C 0C 0E 02 77 DB AB DC 31 32 16 01 0F 02 0E 02 5B 0F 02 AE DD 2F 06 1A 80 A8 2D 00 1A 80 A3 2D 01 1C 80 9E 63 DF 2F 08 0E 02 5B 0F 02 AE DD 2F 06 0E 02 77 DB AB DC 31 32 16 01 1C 80 84 6A 09 62 E2 E3 E4 6D 03 0D 2C 03 0E 1A 80 75 EB 1A 80 52 91 03 FF A6 91 02 47 91 01 02 2D 01 14 AA 8D 0F 0D 6A 09 62 E7 E8 E9 6D 03 0D AD 2C 04 0E EA AB 8D 96 59 AB 1A 2C 16 02 1A 30 16 02 1A 2C 0E 02 77 DB AB EC 80 32 00 23 05 6C 0E 02 77 DB AB DC 31 32 16 01 0F 02 77 DB AB ED 31 32 16 01 1B 5A 84 01 AB AB 90 01 32 56 16 02 0E 02 77 DB AB EC 80 32 00 23 05 05 0E 02 5B 0F 02 AF DD 2F 06 16 01 2D 16 19 05 ) FORMAT-CONDITIONAL-ERROR NEXT-ARG *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8. FORMAT-CONDITIONAL-END FORMAT-INTERPRET 1. FORMAT-GOTO-NEW-ARG *FORMAT-CS* "The ~~; directive is not allowed at this point." "Hier ist keine ~~;-Direktive m÷glich." "La directive ~~; n'est pas permise ici." LANGUAGE FORMAT-ERROR "The ~~[ parameter must be an integer, not ~S" "Argument fⁿr ~~[ mu▀ ein Integer sein, nicht ~S" "L'argument pour ~~[ doit Ωtre un entier et non ~S" 0. #.MOST-POSITIVE-FIXNUM 7. 5. FORMAT-SKIP-TO-END ) ) #Y(#:TOP-LEVEL-FORM-70 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-CONDITIONAL-ERROR REMOVE-OLD-DEFINITIONS #Y(FORMAT-CONDITIONAL-ERROR #24Y(00 00 00 00 00 00 00 00 00 01 6A 00 62 D9 DA DB 6D 03 04 2C 03 05 19 01 ) *FORMAT-CS* "The ~~[ directive cannot take both modifiers." "~~[ geht nicht mit : und @ gleichzeitig." "La directive ~~[ ne peut pas accepter les deux qualificateurs : et @ en mΩme temps." LANGUAGE FORMAT-ERROR ) ) #Y(#:TOP-LEVEL-FORM-71 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-ITERATION REMOVE-OLD-DEFINITIONS #Y(FORMAT-ITERATION #367Y(00 00 00 00 03 00 01 00 00 0A 3C 01 6A 00 2D 01 0E 00 77 DA AB DB 80 32 00 94 01 0E 00 21 80 62 0E 05 14 AA 8D 0A 80 70 00 14 92 06 80 86 00 14 DE 92 07 07 AA B2 8F 01 32 81 31 91 08 80 80 9C 14 92 05 81 23 AB 8D 95 80 7A 16 01 1B 81 1D AD 8E 0A 81 04 91 09 80 96 91 08 80 7C 9C 10 0E 0E 0E 10 0D A4 10 05 A6 10 00 00 10 10 65 19 E9 2F 12 0E 0D 09 10 6A 10 24 13 80 9C 00 12 02 12 03 19 0B 2D 04 1A FF 9B AA 7A 01 AB DE AC 62 2C 04 07 9B 5B 16 01 1A FF 91 94 02 0E 00 21 69 9D 5B 1A FF 86 6A 05 62 E0 E1 E2 6D 03 0B AD 2C 04 0C 15 1A FF 7B 2D 04 14 AA 8E 0E 68 15 1A FF 70 0E 0D 1A FF 7C 15 1C 80 A4 1A FF 84 2D 04 1A 27 0E 0D 1A 29 00 11 1A FF A4 9E 10 05 A0 10 00 00 10 10 BD E9 2F 12 6A 10 24 13 2F 00 1A FF 90 91 08 5A 93 01 82 02 15 10 0E 91 0B 54 9F 10 0F 0E 0E 10 0D A7 10 05 A9 10 00 00 10 10 65 1C E9 2F 12 6A 10 23 13 FF BD 11 12 02 12 03 1A 80 41 2D 04 1A 08 91 08 79 93 01 82 02 15 14 00 10 05 B1 B9 A0 36 01 11 16 01 1A 27 00 10 05 B0 B8 0E 0D 36 01 11 0F 0D 1A 19 91 09 59 91 08 6C 00 10 05 B0 B8 A1 36 01 11 F7 1A 07 AD 8D 20 6A AD 2E 14 84 00 92 07 FE D6 1A FE CC 15 1B FE E3 00 19 0B ) *FORMAT-CSDL* FORMAT-SKIP-TO-END CONTROL-STRING-DIRECTIVE 5. NEXT-ARG *FORMAT-CS* 0. FORMAT-PARSE-CS "The ~~{ directive requires a list argument, not ~S" "Das Argument zu ~~{ mu▀ eine Liste sein, nicht ~S" "L'argument de ~~{ doit Ωtre une liste et non ~S" LANGUAGE FORMAT-ERROR *FORMAT-NEXT-ARG* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT* FORMAT-ITERATION-END FORMAT-INTERPRET :TERMINATE-ALL FORMAT-INDIRECTION-CSERROR ) ) #Y(#:TOP-LEVEL-FORM-72 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS #Y(FORMAT-JUSTIFICATION #183Y(00 00 00 00 03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A 01 02 C5 F7 6A 03 B2 70 95 AA 71 78 01 04 63 1A 80 5C 0E 03 77 2E 0B 43 41 02 69 06 69 06 0E 07 1C 80 43 A5 0F 03 2D 0C 11 16 01 1A 80 4F A4 5A 1A 80 5C A7 5B 1A 80 5F 0E 03 5B 0F 03 00 10 07 B2 DE 2F 08 92 03 1A 0E 03 77 DC AB DD 80 32 00 24 09 0E 0E 03 77 DC AB E2 31 32 16 01 FD 1B FF B1 0E 07 1B FF BD B2 71 79 83 04 11 7C 00 0E 03 77 DC AB DD 80 32 00 24 06 FF BD 16 01 AA 80 4C 00 B8 B8 B8 B8 B8 B8 B8 B6 B5 91 0C FF A0 00 14 B6 B6 91 0F FF 9D A7 14 2C 0D 0D 19 0F ) 0. 1. #\Space *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 7. FORMAT-JUSTIFICATION-END *FORMAT-UP-AND-OUT* FORMAT-INTERPRET FORMAT-SEPARATOR 5. FORMAT-RESOLVE-PARMS FORMAT-SKIP-TO-END DO-FORMAT-JUSTIFICATION ) ) #Y(#:TOP-LEVEL-FORM-73 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS #Y(DO-FORMAT-JUSTIFICATION #130Y(00 00 00 00 0D 00 00 00 00 00 92 0A 14 92 09 17 92 08 19 92 07 1B 91 01 1D B4 B2 B9 2C 03 05 19 0E C3 09 0A 91 09 69 C4 FF 91 08 67 C3 FE 91 07 65 C5 FD 92 01 63 B4 B4 B4 B9 B9 B0 2C 06 03 41 02 92 07 19 B2 AB 91 07 01 C3 14 72 03 35 91 05 01 C7 14 90 01 30 06 B0 BA 37 02 30 8E D8 1A 17 AC 9C 5E 14 B5 BC 2C 03 05 92 04 13 93 04 82 05 BB 37 02 30 8E 84 00 AC 9C 5E 1B 64 91 04 6D 00 19 11 ) 0. 1. #\Space FORMAT-JUSTIFIED-SEGMENTS 72. FORMAT-PADDING ) ) #Y(#:TOP-LEVEL-FORM-74 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMAT-UP-AND-OUT REMOVE-OLD-DEFINITIONS #Y(FORMAT-UP-AND-OUT #48Y(00 00 00 00 03 00 03 00 00 00 3C 03 3C 02 3C 01 AD AD AD 91 08 10 0E 01 14 2C 04 02 1C 0F 91 05 09 C7 0F 05 19 07 0E 00 1A 6E C6 1A 75 00 19 07 ) *FORMAT-NEXT-ARGLIST* *FORMAT-NEXT-ARG* UP-AND-OUT-P :TERMINATE-ALL :TERMINATE *FORMAT-UP-AND-OUT* ) ) #Y(#:TOP-LEVEL-FORM-75 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UP-AND-OUT-P REMOVE-OLD-DEFINITIONS #Y(UP-AND-OUT-P #96Y(00 00 00 00 03 00 01 00 00 0A 3A 01 26 7C 01 92 04 24 1A 28 9C 58 19 05 AE C3 59 19 05 AE AE 31 04 19 05 AE AE AE 32 02 31 19 05 AE AE AE 32 02 0B 19 05 91 04 06 91 03 03 92 02 58 91 03 03 92 02 56 92 02 58 AE 8E 0F 08 AD 8E 0F 04 AC 8D 0F 52 AE 8E 1F 08 AD 8E 1F 04 AC 8D 1F 4E 00 19 05 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-76 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-HAIRY REMOVE-OLD-DEFINITIONS #Y(FORMATTER-HAIRY #23Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03 ) #Y(FORMATTER-HAIRY-1 #54Y(00 00 00 00 01 00 00 00 01 17 68 00 01 7A 01 68 00 01 D9 AC 62 2C 04 02 9B 5A 10 03 9E 5B 10 04 A3 10 05 0E 05 10 06 00 10 07 00 10 08 BF 2E 09 0E 06 12 06 19 04 ) NIL 0. FORMAT-PARSE-CS *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT* FORMAT-INTERPRET ) ) ) #Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-TERMINATE*) *FORMAT-TERMINATE* ) #Y(#:TOP-LEVEL-FORM-78 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-TERMINATE-ALL*) *FORMAT-TERMINATE-ALL* ) #Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-UWPS*) *FORMAT-UWPS* ) #Y(#:TOP-LEVEL-FORM-80 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-BLOCK REMOVE-OLD-DEFINITIONS #Y(FORMATTER-BLOCK #25Y(00 00 00 00 01 00 00 00 00 02 AB 71 92 6A 00 AB D9 AC 31 8A 16 01 15 19 02 ) *FORMAT-UWPS* UWPS ) ) #Y(#:TOP-LEVEL-FORM-81 #27Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB 2E 01 DB DC 31 84 C6 19 01 ) FORMATTER-TERMINATE REMOVE-OLD-DEFINITIONS #Y(FORMATTER-TERMINATE #16Y(00 00 00 00 00 00 00 00 00 01 6A 00 C4 33 19 01) *FORMAT-TERMINATE* #1=#Y(MARK-USED #40Y(00 00 00 00 01 00 00 00 00 02 AB D8 63 31 8A 6A 01 AC DA 37 01 71 86 1A 06 AB 63 30 AD 82 01 AB 9C 22 76 16 02 9C 19 02 ) USED *FORMAT-UWPS* UWPS ) ) FORMATTER-TERMINATE-ALL #Y(FORMATTER-TERMINATE-ALL #16Y(00 00 00 00 00 00 00 00 00 01 6A 00 C4 33 19 01) *FORMAT-TERMINATE-ALL* #1# ) ) #Y(#:TOP-LEVEL-FORM-82 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) FORMATTER-BIND-TERMINATOR REMOVE-OLD-DEFINITIONS MACRO #Y(FORMATTER-BIND-TERMINATOR #24Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04 ) LET ((*FORMAT-TERMINATE* (FORMATTER-BLOCK "TERMINATE-"))) FORMATTER-BIND-TERMINATOR-1 PROGN ) ) #Y(#:TOP-LEVEL-FORM-83 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-BIND-TERMINATOR-1 REMOVE-OLD-DEFINITIONS #Y(FORMATTER-BIND-TERMINATOR-1 #30Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 37 01 8E 86 09 DA 6A 00 9E 7B 02 60 01 F7 9C 19 02 ) *FORMAT-TERMINATE* USED BLOCK ) ) #Y(#:TOP-LEVEL-FORM-84 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) FORMATTER-BIND-TERMINATORS REMOVE-OLD-DEFINITIONS MACRO #Y(FORMATTER-BIND-TERMINATORS #24Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04 ) LET ((*FORMAT-TERMINATE* (FORMATTER-BLOCK "TERMINATE-")) (*FORMAT-TERMINATE-ALL* (FORMATTER-BLOCK "TERMINATE-ALL-")) ) FORMATTER-BIND-TERMINATORS-1 PROGN ) ) #Y(#:TOP-LEVEL-FORM-85 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-BIND-TERMINATORS-1 REMOVE-OLD-DEFINITIONS #Y(FORMATTER-BIND-TERMINATORS-1 #47Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 37 01 8E 86 09 DA 6A 00 9E 7B 02 60 01 F7 6A 03 D9 37 01 8E 86 09 DA 6A 03 9E 7B 02 60 01 F7 9C 19 02 ) *FORMAT-TERMINATE* USED BLOCK *FORMAT-TERMINATE-ALL* ) ) #Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMAT-CASE*) *FORMAT-CASE* ) #Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *ARGS*) *ARGS* ) #Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *ITERARGS*) *ITERARGS* ) #Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMATTER-LINEAR-ARGS*) *FORMATTER-LINEAR-ARGS* ) #Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMATTER-LINEAR-ARGCOUNT*) *FORMATTER-LINEAR-ARGCOUNT* ) #Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMATTER-LINEAR-POSITION*) *FORMATTER-LINEAR-POSITION* ) #Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *FORMATTER-WHOLE-ARGS*) *FORMATTER-WHOLE-ARGS* ) #Y(#:TOP-LEVEL-FORM-93 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) FORMATTER-BIND-ARGS REMOVE-OLD-DEFINITIONS MACRO #Y(FORMATTER-BIND-ARGS #24Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04 ) LET ((*ARGS* (GENSYM "ARGS")) (*FORMATTER-LINEAR-ARGS* T) (*FORMATTER-LINEAR-ARGCOUNT* 0.) (*FORMATTER-LINEAR-POSITION* 0.) (*FORMATTER-WHOLE-ARGS* NIL) ) FORMATTER-BIND-ARGS-1 PROGN ) ) #Y(#:TOP-LEVEL-FORM-94 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-BIND-ARGS-1 REMOVE-OLD-DEFINITIONS #Y(FORMATTER-BIND-ARGS-1 #134Y(00 00 00 00 01 00 00 00 00 02 0E 00 1C 06 D9 DA AD 2C 03 03 00 2A 01 00 0B 00 00 DC 6A 05 1A 0C DE 71 92 06 03 00 5C 0B 02 00 84 01 AB AB 90 01 32 6E 16 02 67 00 00 31 4C 0B 00 00 AA 6C 07 01 E0 AE 2C 03 03 F8 E1 E2 AE 2C 03 03 F8 0E 00 1C 15 E3 E4 AE 2C 03 03 F8 E5 E6 6A 0F 7A 02 7A 01 9F 7B 02 60 01 F8 67 00 00 E8 6A 0F 7A 02 72 02 23 E9 EA 67 03 00 6A 0F 7A 01 32 02 23 79 7A 02 9F 79 3F 02 19 03 ) *FORMATTER-WHOLE-ARGS* #Y(FORMATTER-BIND-ARGS-1-1 #22Y(00 00 00 00 01 00 00 00 00 02 6A 00 9D 5B 77 32 01 34 0F 00 19 02 ) *FORMATTER-LINEAR-ARGCOUNT* ) #Y(FORMATTER-BIND-ARGS-1-2 #42Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 19 93 01 C3 59 1E 13 94 01 31 07 1E 0D 9C 5B 77 31 0B 1E 06 9C 5B 5B 58 19 02 19 02 ) WHOLE-ARGS ) SUBST-IF-THEN 0. *FORMATTER-LINEAR-ARGCOUNT* "ARG" #Y(FORMATTER-BIND-ARGS-1-3 #36Y(00 00 00 00 01 00 00 00 00 02 9C 5B 77 6A 01 8F 01 2F 07 DA 6A 03 60 02 19 02 9C 5B 77 68 00 01 30 99 19 02 ) NIL *FORMATTER-LINEAR-ARGCOUNT* POP *ARGS* ) #Y(FORMATTER-BIND-ARGS-1-4 #35Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 12 93 01 C3 59 1E 0C 94 01 31 07 1E 06 9C 5B 5B 58 19 02 19 02 ) ARG ) #Y(FORMATTER-BIND-ARGS-1-5 #70Y(00 00 00 00 01 00 00 00 00 02 9C 5B 77 9D 5B 5B 77 AB 6A 00 8F 01 31 17 02 0F 05 DA 6A 03 DE AD 6A 00 72 01 33 60 02 14 60 03 19 04 C4 19 04 AA 6A 00 8F 01 31 76 DA 6A 03 DC AD 6A 00 72 01 36 6A 03 60 03 1A 61 ) *FORMATTER-LINEAR-ARGCOUNT* (PROGN) SETQ *ARGS* NTHCDR *FORMATTER-WHOLE-ARGS* WHOLE-ARGS ) #Y(FORMATTER-BIND-ARGS-1-6 #43Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 1A 93 01 C3 59 1E 14 94 01 31 07 1E 0E 9C 5B 78 31 07 1E 07 9C 5B 5B 5B 58 19 02 19 02 ) SETQ-ARGS-WHOLE-ARGS ) #Y(FORMATTER-BIND-ARGS-1-7 #32Y(00 00 00 00 01 00 00 00 00 02 9C 5B 77 6A 00 72 01 36 AA 8D 94 07 DA AB C6 61 02 19 03 C4 19 03 ) *FORMATTER-LINEAR-ARGCOUNT* WHOLE-ARGS NTHCDR (WHOLE-ARGS) ) #Y(FORMATTER-BIND-ARGS-1-8 #42Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 19 93 01 C3 59 1E 13 94 01 31 07 1E 0D 9C 5B 77 31 0B 1E 06 9C 5B 5B 58 19 02 19 02 ) WHOLE-ARGS ) LET WHOLE-ARGS *ARGS* &REST DECLARE IGNORABLE ) ) #Y(#:TOP-LEVEL-FORM-95 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-STOP-LINEAR REMOVE-OLD-DEFINITIONS #Y(FORMATTER-STOP-LINEAR #31Y(00 00 00 00 00 00 00 00 00 01 0E 00 1B 03 00 19 01 6A 01 6A 02 32 01 34 0F 01 00 0F 00 19 01 ) *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-ARGCOUNT* *FORMATTER-LINEAR-POSITION* ) ) #Y(#:TOP-LEVEL-FORM-96 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-LENGTH-ARGS REMOVE-OLD-DEFINITIONS #Y(FORMATTER-LENGTH-ARGS #19Y(00 00 00 00 00 00 00 00 00 01 2D 00 D9 6A 02 60 02 19 01) FORMATTER-STOP-LINEAR LENGTH *ARGS* ) ) #Y(#:TOP-LEVEL-FORM-97 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-NEXT-ARG REMOVE-OLD-DEFINITIONS #Y(FORMATTER-NEXT-ARG #44Y(00 00 00 00 00 00 00 00 00 01 0E 00 1B 07 DC 6A 05 60 02 19 01 D9 6A 02 7A 02 6A 02 31 99 0F 02 6A 03 6A 02 32 01 33 0F 03 15 19 01 ) *FORMATTER-LINEAR-ARGS* ARG *FORMATTER-LINEAR-POSITION* *FORMATTER-LINEAR-ARGCOUNT* POP *ARGS* ) ) #Y(#:TOP-LEVEL-FORM-98 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-WHOLE-ARGS REMOVE-OLD-DEFINITIONS #Y(FORMATTER-WHOLE-ARGS #21Y(00 00 00 00 01 00 00 00 00 02 2D 00 02 0F 01 DA AC 60 02 19 02) FORMATTER-STOP-LINEAR *FORMATTER-WHOLE-ARGS* WHOLE-ARGS ) ) #Y(#:TOP-LEVEL-FORM-99 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-GOTO-ARG REMOVE-OLD-DEFINITIONS #Y(FORMATTER-GOTO-ARG #199Y(00 00 00 00 03 00 00 00 00 04 92 03 80 51 AB 8D 0B 27 2D 04 DD 6A 06 E0 AE C3 1A 80 63 DB 6A 02 AD 7A 03 7A 01 9D 0F 02 15 19 04 AB 6A 02 8F 01 2F 6B 01 02 AD 0E 02 1A 1A AB D8 81 01 33 01 0E 01 1B 68 2D 04 DD 6A 06 AD 2E 07 1A 80 72 63 62 6A 02 9F 14 72 01 36 28 03 07 00 91 03 FF AF 92 02 80 43 AB 8E 0B 04 0E 01 1B 63 2D 04 DD 6A 06 0E 01 1C 11 E0 E1 E2 6A 02 B1 7A 03 CE 7B 02 C3 14 2E 07 1A 38 E4 AE D8 6E 07 6A 06 60 04 1A 30 62 D8 1A 07 2D 0E 14 83 01 84 00 AA AE 90 01 32 73 AB 31 4C 19 06 AB 8E 0B 0A AB E5 90 01 31 04 0E 01 1B 5C 2D 04 DD 6A 06 E0 AE 0E 06 14 60 03 14 7A 03 60 01 19 04 ) 0. *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-POSITION* SETQ-ARGS-WHOLE-ARGS FORMATTER-STOP-LINEAR SETQ *ARGS* FORMATTER-WHOLE-ARGS NTHCDR MAX - (0.) LIST-BACKWARD 100. FORMATTER-NEXT-ARG ) ) #Y(#:TOP-LEVEL-FORM-100 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) LIST-BACKWARD REMOVE-OLD-DEFINITIONS #Y(LIST-BACKWARD #29Y(00 00 00 00 03 00 00 00 00 04 AC 71 4A AC 71 4A AF 72 02 36 D8 72 01 33 AD 30 A0 19 04 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-101 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-ARG REMOVE-OLD-DEFINITIONS #Y(FORMATTER-ARG #29Y(00 00 00 00 01 00 00 00 00 02 AB 23 00 07 AB 23 02 07 9C 19 02 2D 01 19 02 2D 03 19 02 ) :NEXT-ARG FORMATTER-NEXT-ARG :ARG-COUNT FORMATTER-LENGTH-ARGS ) ) #Y(#:TOP-LEVEL-FORM-102 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-MAIN-1 REMOVE-OLD-DEFINITIONS #Y(FORMATTER-MAIN-1 #1757Y(00 00 00 00 00 00 01 00 00 07 3C 01 00 2A 01 00 0B 00 00 6A 00 8B 97 86 8B 0E 00 77 D9 AB DA 31 32 25 03 86 5C 6A 04 D9 AC DD 71 32 D9 AD DE 71 32 71 48 06 02 00 5C 0B 01 00 1A 86 44 16 02 1A 86 62 9B 2A 03 D9 AD E0 31 32 0B 00 00 D9 AD E1 31 32 0B 00 01 98 0A D9 AE E3 71 32 32 00 17 0B 00 02 9B 2A 03 AA 2B 0C 01 0B 00 00 AA 2B 0D 01 0B 00 01 AA 6C 0E 01 AB 2B 0F 01 0B 01 02 AB 6C 10 01 06 04 00 25 11 85 AD EE 2D 17 14 03 18 61 02 1A 18 62 67 04 02 37 07 71 51 67 07 00 30 A6 0B 06 00 ED 06 04 00 1B 60 2D 17 14 03 19 61 02 1A 83 34 EA 06 03 00 33 06 03 02 77 EB 37 03 8C B8 0C 06 03 02 5B 5B 77 EC 37 03 8B B8 45 06 02 02 1A 81 97 62 67 04 02 37 07 71 51 67 07 00 30 A6 0B 06 00 F4 2D 17 14 03 1D 61 02 1A 82 F8 EA 06 03 00 33 06 03 02 77 F2 37 03 8C B8 11 06 03 02 5B 5B 77 F3 37 03 8C B8 05 06 03 00 1C 45 06 02 02 1A 81 56 62 67 04 02 37 07 71 51 67 07 00 30 A6 0B 06 00 64 20 2D 17 14 03 21 61 02 1A 82 B6 EA 06 03 00 33 06 03 02 77 64 1E 37 03 8C B8 0D 06 03 02 5B 5B 77 64 1F 37 03 8B B8 47 06 02 02 1A 81 17 D5 1A 80 A3 D5 1A 80 9F D5 1A 80 9B D5 1A 80 97 03 22 1A 17 62 67 04 02 37 07 71 51 67 07 00 30 A6 0B 06 00 06 03 00 1B 67 03 23 14 2D 17 14 03 24 61 02 1A 82 5D E0 06 03 00 33 06 03 02 5A 1B 05 06 03 01 1C 4E 06 02 02 1A 80 CB 62 63 DA 6D 03 26 67 07 00 30 A6 0B 06 00 06 03 01 1C 28 64 27 64 28 64 29 2D 17 14 03 2A 7B 02 03 2B 7B 02 03 2C 61 02 1A 82 1C 64 25 06 03 00 33 06 03 00 1B 4A 06 03 01 1B 58 64 2D 64 29 2D 17 14 03 2E 7B 02 03 2F 61 02 1A 81 FA 03 25 1A 0A CB 1A 07 C9 1A 04 C9 1A 01 D5 14 9C 1A 80 6B 03 31 1A 81 E2 DA 06 03 00 33 06 03 02 77 64 30 37 03 8B B8 6B 06 02 01 1A 80 50 03 33 1A 81 C7 DA 06 03 00 33 06 03 02 77 64 32 37 03 8B B8 6B 06 02 01 1A 36 03 35 1A 81 AD DA 06 03 00 33 06 03 02 77 64 34 37 03 8B B8 6B 06 02 01 1A 1C 03 37 1A 81 93 DA 06 03 00 33 06 03 02 77 64 36 37 03 8B B8 6B 06 02 01 1A 02 DD 9D 33 16 05 1A 84 10 03 25 1A 17 DA 06 03 00 33 67 03 01 67 04 00 06 05 02 5A 1B 06 06 05 01 1B 66 C5 14 6D 03 26 67 07 00 30 A6 1A 81 54 64 38 6A 39 64 3A 64 3B 2D 17 14 2D 3C 6A 39 7A 04 60 03 1A 81 39 64 25 06 03 00 33 06 03 01 1B 5F 64 3A 64 3B 2D 17 14 2D 17 1A 80 BC 64 3E 6B FD 40 AA 67 08 00 30 A6 1A 83 5B 03 43 1A 80 4F 06 0A 01 1B 76 03 44 1A 80 45 03 45 1A 80 40 64 49 64 4A 9E 79 9D 7B 02 60 01 1A 80 47 64 25 06 03 00 33 0E 00 5B 0F 00 0E 3D 1B 41 64 3F 64 40 62 0E 41 5C 10 41 02 10 3D 64 3E 2E 42 11 14 64 27 06 0A 00 1B FF B9 06 0A 01 1B FF BD 03 46 14 03 47 79 03 48 7B 02 7A 01 0E 41 5A 1B FF B0 AB AB 32 02 23 16 02 11 61 02 1A 80 A3 2D 4B 16 05 1A 83 36 06 03 00 1C 82 E9 06 03 01 1B 6E 64 25 06 03 00 33 64 28 64 4C 2D 17 14 7A 02 64 4A 2D 3C 0E 00 5B 0F 00 64 4D 2E 42 79 64 4A 2D 3C 0E 00 5B 0F 00 64 4D 2E 42 5C 14 60 04 1A 80 60 6A 04 62 64 51 64 52 64 53 6D 03 54 2C 03 55 16 05 1A 82 E6 DA 06 03 00 33 64 56 06 04 02 5A 1B 02 2D 17 14 64 25 62 2D 3C 1A 02 84 01 0E 00 77 D9 AB 64 50 31 32 16 01 1C 1F 0E 00 77 D9 AB E0 31 32 16 01 1C 02 7D 01 0E 00 5B 0F 00 AB 64 4D 2E 42 79 83 00 AB 02 22 52 AA 31 4C 16 02 61 02 14 06 07 00 5C 0B 06 00 16 05 1A 82 8D 64 3F 64 5D 06 0B 02 77 7A 02 03 5E 79 9D 33 7B 02 60 01 1A 80 6D DA 06 03 00 33 0E 00 5B 0F 00 9D 2A 03 06 04 02 5A 0B 00 00 D9 B1 64 50 31 32 77 D9 AB E0 31 32 16 01 0B 00 01 D9 B1 64 50 71 32 0E 00 59 0B 00 02 9B 2A 01 AB 2B 57 01 0B 00 00 9B 2A 01 AB 2B 58 01 0B 00 00 9B 2A 01 AB 2B 59 01 0B 00 00 9B 2A 01 AB 2B 5A 01 0B 00 00 AA 6C 5B 01 06 05 00 1C 09 14 64 5C 37 03 8C B8 FF 7F 9B 33 14 AA 67 0E 00 30 A6 0B 0D 00 16 0C 1A 81 FB 0E 00 5B 0F 00 64 4A 64 61 6E 42 64 62 32 02 23 5C 1A 80 43 D9 B3 E3 31 32 77 2E 0A 1A 3F D9 B4 E3 31 32 5B 77 2E 0A 1A 3A EA 06 03 00 33 D9 B0 64 50 31 32 77 D9 AB DE 71 32 CA 59 1C 05 D9 AB E0 31 32 14 64 5F 67 06 00 67 07 01 67 08 02 64 60 AF 91 06 FF AA 00 14 91 07 FF B8 00 14 91 08 FF BC 00 14 7A 05 32 02 23 7B 03 62 0E 41 5C 10 41 62 1A 80 47 64 63 64 64 64 65 64 66 A3 79 7A 02 03 67 79 72 02 23 64 49 64 4A 62 AF 1A 10 93 00 AA 64 68 72 02 23 AD 7F A6 02 16 01 82 00 9B 20 6D 16 01 AA 30 A8 16 01 79 03 69 61 02 1A 80 51 0E 00 5B 0F 00 64 61 6E 42 83 00 0E 00 77 D9 AB 64 50 31 32 16 01 1B 68 AA 80 4C 00 0E 41 5A 1B FF A2 64 63 64 64 64 6A B1 64 66 62 B0 1A 11 93 00 64 4A AB 64 6B 32 02 23 79 83 02 16 01 82 00 9B 20 6C 16 01 AA 30 A8 16 01 79 7A 01 32 02 23 5C 14 7A 03 06 0E 00 5C 0B 0D 00 16 01 11 16 08 1A 80 E7 0E 6C 1A 80 52 64 6E 06 06 02 5C 1A 80 72 64 6F 9E 1A 14 06 05 02 77 92 00 74 9B 1F 12 93 00 24 70 0D 64 6F 9C 5B 5A 14 60 02 16 01 1A 80 51 64 56 AB 64 71 64 6F B0 7A 02 7A 02 03 72 61 03 16 01 1A 3D 2D 74 1A 80 43 E3 06 03 00 33 2D 3C 06 03 00 1B FF AB 0E 39 14 64 28 64 6D 67 06 02 8F 00 27 FF A1 06 05 02 5B 5A 1B 09 06 05 02 5B 5B 5A 1C FF 9F 64 6E 67 06 02 AD 7A 01 32 02 23 5C 14 64 73 06 07 00 1B FF BA 2D 75 14 7A 02 7A 03 06 08 00 5C 0B 07 00 16 06 1A 80 4B 64 76 00 51 06 03 01 1C FD 5B 64 25 06 03 00 33 2D 3C 64 28 64 4E 6A 39 7A 02 64 4A 0E 00 5B 0F 00 64 4D 2E 42 79 64 38 6A 39 64 4F 6A 39 7A 02 7A 03 7A 04 06 07 00 5C 0B 06 00 0E 00 77 D9 AB 64 50 31 32 16 01 1B FD 08 16 05 16 01 0E 00 5B 0F 00 1A F9 88 9C 2A 01 D9 AC DE 31 32 0B 00 00 14 A0 21 F9 A2 67 00 00 24 07 F9 A0 16 02 62 67 01 00 62 1A 29 AC 64 77 AC 93 05 72 02 25 30 AD 1A 1A 86 01 00 14 8E 1F 04 AA 7F 4F 00 9D 1F 09 93 02 8E 0A 04 AA 8D 0A 5C AA 83 02 82 01 AB 8C 97 60 16 02 15 19 03 ) *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1. #S(HASH-TABLE EQ (2. . 1640.) (1. . 2.) (0. . 1630.)) *FORMAT-CS* 2. 7. FORMAT-SEPARATOR 5. 6. FORMATTER-ARG 3. #Y(FORMATTER-MAIN-1-SIMPLE-ARGLIST #55Y(00 00 00 00 01 00 00 00 00 02 68 01 03 71 4A AC 8F 01 31 0C 6A 01 62 DA DB DC 6D 03 05 2C 03 06 68 01 03 AC 68 01 03 71 4A 72 01 36 62 70 A2 32 02 23 0C 01 03 19 02 ) NIL *FORMAT-CS* "Too many arguments for this directive" "Zu viele Argumente fⁿr diese Direktive." "Trop d'arguments pour cette directive." LANGUAGE FORMAT-ERROR ) #Y(FORMATTER-MAIN-1-TRIVIAL-CALL #34Y(00 00 00 00 00 00 00 00 00 01 68 02 01 D9 68 01 01 68 01 02 07 01 03 7B 04 07 03 01 5C 0C 03 01 19 01 ) NIL STREAM ) #Y(FORMATTER-MAIN-1-TRIVIAL #21Y(00 00 00 00 01 00 00 00 00 02 AB 07 00 01 33 07 00 02 33 19 02) NIL ) #Y(FORMATTER-MAIN-1-SIMPLE-CALL #53Y(00 00 00 00 00 00 00 00 00 01 D9 68 02 01 70 4F 72 02 13 DA 70 D0 70 D8 DB 68 01 01 68 01 02 68 01 03 2D 04 14 7A 01 32 02 23 7B 04 07 03 01 5C 0C 03 01 19 01 ) NIL "DO-" "SYSTEM" STREAM FORMATTER-NEXT-ARG ) #Y(FORMATTER-MAIN-1-SIMPLE #21Y(00 00 00 00 01 00 00 00 00 02 AB 07 00 01 33 07 00 03 33 19 02) NIL ) #S(HASH-TABLE EQ (FORMAT-UP-AND-OUT . 1371.) (FORMAT-JUSTIFICATION . 1064.) (FORMAT-ITERATION . 899.) (FORMAT-CONDITIONAL . 708.) (FORMAT-CASE-CONVERSION . 622.) (FORMAT-INDIRECTION . 551.) (FORMAT-GOTO . 494.) (FORMAT-TABULATE . 482.) (FORMAT-TILDE . 461.) (FORMAT-PAGE . 435.) (FORMAT-FRESH-LINE . 409.) (FORMAT-TERPRI . 382.) (FORMAT-DOLLARS-FLOAT . 371.) (FORMAT-GENERAL-FLOAT . 368.) (FORMAT-EXPONENTIAL-FLOAT . 365.) (FORMAT-FIXED-FLOAT . 362.) (FORMAT-CHARACTER . 358.) (FORMAT-PLURAL . 324.) (FORMAT-RADIX . 259.) (FORMAT-HEXADECIMAL . 217.) (FORMAT-OCTAL . 213.) (FORMAT-BINARY . 209.) (FORMAT-DECIMAL . 205.) (FORMAT-WRITE . 170.) (FORMAT-S-EXPRESSION . 104.) (FORMAT-ASCII . 44.) ) 4. (NIL 0.) (NIL 0.) PRINC OR FORMATTER-NEXT-ARG ("()") (STREAM) (NIL 0.) (NIL 0.) PRIN1 (STREAM) (NIL 0.) (NIL 0.) WRITE (:STREAM STREAM) FORMAT-ORDINAL FORMAT-CARDINAL (STREAM) 0. FORMATTER-GOTO-ARG WRITE-STRING IF EQL (1.) ("y" "ies") (STREAM) UNLESS (1.) ((WRITE-CHAR #\s STREAM)) (NIL 1.) #\Newline (NIL 1.) (FRESH-LINE STREAM) (NIL 1.) #\Page (NIL 1.) #\~ SETQ *ARGS* DO-FORMAT-INDIRECTION STREAM FORMATTER-STOP-LINEAR *FORMAT-CASE* FORMAT-CASE-CONVERSION-END LET ((ORIG-STREAM STREAM) (STREAM (MAKE-STRING-OUTPUT-STREAM (LINE-POSITION STREAM))) ) *FORMAT-UWPS* FORMATTER-MAIN NSTRING-UPCASE NSTRING-CAPITALIZE NSTRING-CAPITALIZE1 NSTRING-DOWNCASE ((GET-OUTPUT-STREAM-STRING STREAM)) (ORIG-STREAM) UNWIND-PROTECT PROGN FORMAT-CONDITIONAL-ERROR NOT FORMAT-CONDITIONAL-END CAR CDR 8. "The ~~; directive is not allowed at this point." "Hier ist keine ~~;-Direktive m÷glich." "La directive ~~; n'est pas permise ici." LANGUAGE FORMAT-ERROR CASE #Y(FORMATTER-MAIN-1-COMPUTE-INNERMOST #41Y(00 00 00 00 00 00 00 00 00 01 07 00 03 1B 05 E1 2E 0A 19 01 2D 01 DA 6A 03 DC DD DE 6A 03 DF 6E 08 7A 05 7A 03 60 01 19 01 ) NIL FORMATTER-STOP-LINEAR SETQ *ARGS* DO-FORMAT-INDIRECTION-2 STREAM NODE 0. FORMATTER-WHOLE-ARGS FORMAT-ITERATION-END FORMATTER-MAIN ) #Y(FORMATTER-MAIN-1-COMPUTE-INNER #85Y(00 00 00 00 00 00 00 00 00 01 07 03 01 1B 0A 00 10 02 07 00 01 33 11 19 01 0E 01 10 02 DB 2E 04 10 05 DE 31 92 10 01 02 10 07 CB 10 09 CB 10 0A 00 10 0B 07 00 01 73 2E 0C 12 05 41 02 E5 E6 E7 AE 9F 7B 02 7A 02 2D 10 14 7A 03 60 01 16 01 F6 2E 11 11 1A 41 ) NIL *ARGS* *ITERARGS* "TERMINATE-" FORMATTER-BLOCK *FORMAT-TERMINATE* #1="ARGS" *FORMATTER-LINEAR-ARGS* 0. *FORMATTER-LINEAR-ARGCOUNT* *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS* FORMATTER-BIND-ARGS-1 APPLY FUNCTION LAMBDA FORMATTER-NEXT-ARG FORMATTER-BIND-TERMINATOR-1 ) #Y(FORMATTER-MAIN-1-COMPUTE-MIDDLE #136Y(00 00 00 00 00 00 00 00 00 01 68 02 01 23 01 3D 68 02 01 24 02 05 07 02 02 1B 02 2D 03 68 02 01 23 02 33 DF 62 E0 E1 07 02 01 1B 3D 00 14 07 02 02 1C 39 00 14 07 00 01 73 07 02 02 1B 3C 00 14 E6 32 05 23 7B 02 60 03 14 60 01 19 01 00 19 01 07 00 01 33 19 01 07 02 02 1B 75 DC DD 6A 06 7A 02 07 00 01 33 61 02 1A 5F CD 1A 41 E3 DD 6A 06 7A 02 CF 7B 02 60 01 1A FF BA E3 DD 6A 06 7A 02 D0 7B 02 60 01 1A FF B7 ) NIL 0. 1. FORMATTER-STOP-LINEAR UNLESS ENDP *ARGS* BLOCK TAGBODY L ((WHEN (>= I N) (RETURN)) (INCF I)) WHEN ((RETURN)) ((RETURN)) ((GO L)) ) #Y(FORMATTER-MAIN-1-COMPUTE-OUTER #84Y(00 00 00 00 00 00 00 00 00 01 D9 6E 02 DB 2E 02 10 04 9E 10 05 07 05 02 1B 34 DE 31 92 10 07 02 10 08 CC 10 0A CC 10 0B 00 10 0C 07 00 01 73 2E 0D 12 05 41 02 E6 E7 E8 AE 9F 7B 02 7A 02 2D 11 14 7A 03 60 01 16 02 14 2E 12 12 02 19 02 07 00 01 33 1A 73 ) NIL "TERMINATE-" FORMATTER-BLOCK "TERMINATE-ALL-" *FORMAT-TERMINATE-ALL* *FORMAT-TERMINATE* #1# *ARGS* *FORMATTER-LINEAR-ARGS* 0. *FORMATTER-LINEAR-ARGCOUNT* *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS* FORMATTER-BIND-ARGS-1 APPLY FUNCTION LAMBDA FORMATTER-NEXT-ARG FORMATTER-BIND-TERMINATORS-1 ) #Y(FORMATTER-MAIN-1-COMPUTE-OUTERMOST #43Y(00 00 00 00 00 00 00 00 00 01 07 04 03 1B 06 07 00 01 33 19 01 D9 DA DB 2D 04 14 7A 02 7A 02 7A 01 07 00 01 33 7B 02 60 01 19 01 ) NIL LET NODE DO-FORMAT-INDIRECTION-1 FORMATTER-NEXT-ARG ) (0. 1.) N ((I 0.)) ORIG-STREAM POS FORMAT-JUSTIFICATION-END ((GET-OUTPUT-STREAM-STRING STREAM)) LET* ((POS (LINE-POSITION STREAM)) (ORIG-STREAM STREAM) (STREAM (MAKE-STRING-OUTPUT-STREAM POS)) ) JARGS LIST ((PIECES 'NIL)) ((PUSH (GET-OUTPUT-STREAM-STRING STREAM) PIECES)) ((APPLY #'DO-FORMAT-JUSTIFICATION (NCONC JARGS (LIST (LIST-NREVERSE PIECES))) )) DO-FORMAT-JUSTIFICATION ((GET-OUTPUT-STREAM-STRING STREAM)) *ITERARGS* #Y(FORMATTER-MAIN-1-1 #20Y(00 00 00 00 01 00 00 00 00 02 AB 30 62 1E 03 9C 19 02 19 02) ) UP-AND-OUT-P ENDP LENGTH (NIL) (((0.) T) (T NIL)) RETURN-FROM FORMATTER-TERMINATE-ALL FORMATTER-TERMINATE FORMATTER-HAIRY STRING ) ) #Y(#:TOP-LEVEL-FORM-103 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FORMATTER-MAIN REMOVE-OLD-DEFINITIONS #Y(FORMATTER-MAIN #97Y(00 00 00 00 00 00 01 00 00 07 3C 01 AB 6E 00 62 AB 9B 1F 80 45 93 00 AA AA 8E 0A 2F AA 71 4A AA 23 01 10 AA 23 02 14 DF AC CB 61 02 14 60 01 16 01 1A 1B 00 16 01 1A 16 C7 1A 71 AB D9 7F 35 01 14 23 03 74 DD AC C9 61 02 1A 61 AA 60 01 F6 AD 7F A6 02 16 01 82 00 1A FF B7 16 01 AA 30 A8 19 04 ) FORMATTER-MAIN-1 0. 1. #\Newline (TERPRI STREAM) WRITE-CHAR (STREAM) WRITE-STRING (STREAM) ) ) #Y(#:TOP-LEVEL-FORM-104 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) FORMATTER REMOVE-OLD-DEFINITIONS MACRO #Y(FORMATTER #169Y(02 00 01 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 80 74 9D 5B 77 AA 8E 0A 80 71 CD 4F 80 7C AD 7A 01 AE E3 AC 62 2C 04 0C 93 00 9C 5B 10 0D 00 10 0E 00 10 0F 00 10 10 A7 10 11 EA 31 92 10 13 02 10 14 CE 10 15 CE 10 16 00 10 17 F0 6E 19 F2 2E 19 10 1B 9E 10 1C 2D 1D 14 2E 1E 12 02 F6 2D 1F 6A 13 7A 01 72 02 23 2E 20 12 05 41 02 64 21 64 22 64 23 9F 79 64 24 9F 7B 03 60 02 16 02 12 05 16 02 50 3E 19 04 AC 2E 01 19 03 DA DB AC DC DD DE DF E0 6D 03 09 B0 32 05 1F 1D 0A E2 AB 64 25 71 2E 60 02 19 04 19 04 ) 2. MACRO-CALL-ERROR TYPE-ERROR :DATUM :EXPECTED-TYPE STRING "The control-string must be a string, not ~S" "Kontrollstring mu▀ ein String sein, nicht ~S" "La chaεne de contr⌠le doit Ωtre une chaεne et non ~S" LANGUAGE FORMATTER-HAIRY 0. FORMAT-PARSE-CS *FORMAT-CSDL* *FORMAT-CASE* *FORMAT-UWPS* *ITERARGS* *FORMAT-CS* "ARGS" *ARGS* *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-ARGCOUNT* *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS* "TERMINATE-" FORMATTER-BLOCK "TERMINATE-ALL-" *FORMAT-TERMINATE-ALL* *FORMAT-TERMINATE* FORMATTER-MAIN FORMATTER-BIND-TERMINATORS-1 FORMATTER-STOP-LINEAR FORMATTER-BIND-ARGS-1 FUNCTION LAMBDA STREAM (DECLARE (IGNORABLE STREAM)) SIMPLE-STRING ) )